TE 
662 
.A3 
no . 
FHWA- 
RD- 
78- 
38 


No.  FHWA-RD-78-138 


S  MANUAL:  FHWA  LEVEL  2  HIGHWAY  TRAFFIC 
nuioE  PREDICTION  MODEL,  STAMINA  1.0 


May  1979 
Final  Report 


Document  is  available  to  the  public  through 
the  National  Technical  Information  Service, 
Springfield,  Virginia  22161 


Prepared  for 

FEDERAL  HIGHWAY  ADMINISTRATION 
Offices  of  Research  &  Development 
Washington,  D.  C.  20590 


FOREWORD 


This  report  is  a  user's  manual  for  a  computer  program,  STAMINA  1.0  that  has 
been  developed  for  predicting  traffic  noise  impacts  and  will  be  of  interest 
to  traffic  noise  specialists  involved  in  assessing  traffic  noise  impacts 
and  evaluating  alternative  traffic  noise  mitigation  strategies. 

Research  in  highway  noise  and  vibration  is  included  in  the  Federally 
Coordinated  Program  of  Highway  Research  and  Development  as  Task  4  of 
Project  3F,  "Pollution  Reduction  and  Environmental  Enhancement." 
Dr.  Howard  Jongedyk  is  the  Project  Manager  and  Dr.  Timothy  M.  Barry  is 
the  Task  Manager. 

The  traffic  noise  model  on  which  this  computer  program  was  based  was 
developed  by  the  Federal  Highway  Administration  and  is  documented  in 
FHWA  report,  FHWA-RD-77-108 ,  "FHWA  Highway  Traffic  Noise  Prediction  Model" 
which  is  available  from  the  National  Technical  Information  Service, 
Springfield,  Virginia  22161. 

Sufficient  copies  of  this  report  are  being  distributed  to  provide  a 
minimum  of  two  copies  to  each  FHWA  regional  office,  and  one  copy  to  each 
FHWA  division  office  and  State  highway  agency.  Direct  distribution  is 
being  made  to  the  division  offices. 


Charles  F.  Scheffey 
Director,  Office  of  Research 


NOTICE 

This  document  is  disseminated  under  the  sponsorship  of  the  Department  of 
Transportation  in  the  interest  of  information  exchange.   The  United  States 
Government  assumes  no  liability  for  its  contents  or  use  thereof.   The 
contents  of  this  report  reflect  the  views  of  the  contractor,  who  is 
responsible  for  the  accuracy  of  the  data  presented  herein.   The  contents 
do  not  necessarily  reflect  the  official  views  or  policy  of  the  Department 
of  Transportation.   This  report  does  not  constitute  a  standard,  specification, 
or  regulation. 

The  United  States  Government  does  not  endorse  products  or  manufacturers. 
Trade  or  manufacturers1  names  appear  herein  only  because  they  are  considered 
essential  to  the  object  of  this  document. 


43 


y^ 


TECHNICAL  REPORT  STANDARD  TITLE  PAGE 


JO  , 

'3>- 

»   9 


1.    Report  No. 

FHWA-RD-78-138 


2.    Government  Accession  No. 


3.     Recipient's  Catalog  No. 


4.    Title  and  Subtitle 

USER'S  MANUAL:   FHWA  LEVEL  2  HIGHWAY  TRAFFIC  NOISE 
PREDICTION  MODEL 
STAMINA  1.0 


5.     Report  Date 

May  1979 


6.     Performing  Organization  Code 


7.    Author(s) 

F.   F.   Rudder,  Jr.,  D.   F.   Lam,  and  P.   Chueng 


8.     Performing  Organization  Report  No. 

5-451-00-066-06 


9.     Performing  Organization  Name  and  Address 

Science  Applications,  Inc. 

Energy  &  Environmental  Sciences  Division 

1651  Old  Meadow  Road 

McLean,  Virginia  22102 


10.     Work  Unit  No. 


1 1 .     Contract  or  Grant  No. 

D0T-FH-1 1-9384 


12.    Sponsoring  Agency  Name  and  Addres« 

U.   S.   Department  of  Transportation 
l^S^Federal   Highway  Administration 

Office  of  Research  Environmental   Design  &  Control 
Washington,  D.   C.     20590 


13.     Type  of  Report  and  Period  Covered 

Final  Report 

Dec.  1977  -  June  1979 


14.     Sponsoring  Agency  Code 


15.    Supplementary  Notes 

Contract  Manager:  Dr.  T.  M.  Barry  (HRS-4  2) 


16.  Abstract 

This  report  describes  modifications  to  the  TSC  MOD-04  highway  traffic  noise  pre- 
diction program  to  extend  the  scope  of  problem  formulation.  The  FHWA  Level  2 
Highway  Traffic  Noise  Prediction  Model  features: 

•  Revised  Vehicle  Reference  Noise  Emission  Levels 

•  Specification  of  Site-Specific  (Excess)  Attenuation 

t  English/Metric  and  Metric/English  conversion  of  engineering  units  for 
both  input  and  output  data 

•  Common  Input  Data  Format  with  TSC  MOD-04  model 
t  User  Options  to  Improve  Operating  Efficiency 

The  report  describes  problem  formulation,  input  data  requirements,  output  error 
messages,  examples  of  usage,  and  computer  program  documentation.  . 

The  FHWA  Staff  has  given  the  Level  2  program  the  acronym!  siffiftWW.O  for 
Standard  Method  In  Noise  Analysis  (Version)  1.0.      J  TRA^SPGRlAi: 

dfc  '  y  )y/r 


LIBRARY 


17.    Key  Words 

Highway  Traffic  Noise  Prediction 
Truck  Noise  Prediction 
Highway  Traffic  Noise  Abatement 
Speed  Effects  of  Vehicles 


18.  Distribution  Statement  ' 


Document  is  available  to  the  public 
through  the  National  Technical 
Information  Service,  Springfield, 
Va.   22161 


19.    Security  Classif.  (of  this  report) 

Unclassified 


20.    Security  Classif.  (of  this  page) 

Unclassified 


21.  No.  of  Pages 

236 


22.    Price 


Form  DOT  F  1700.7  (8-69) 


.E   =  «:  S.  E 


E  VI 


£         ° 


"-.SO 

o  =  Z 

C  3  IU 

.s     s       -• 


w     i 

E        = 


O       U      0)      £     — 

C     C     0)     5.    I 


a> 

tfl 

o> 

r 

n 

c 

;- 

E 

V 

e 

ta 

a 

f 

3 

-i 

s 

O" 

T 

(/) 

M 

« 

ra 

i-g 


8  e  J  .2  .= 

c     TO     —    -O    ■£» 


1  8. 
5  § 


_      Q-     tj      CJi 


°    *    M. 
O    O    CO 


o  <-  o  eg 


g    h    a  © 

■  -     a;     £    o 


3      D      3      CJ 

ST  5T  sr  ^ 


CO            (0    (D 

O    r    O    N            CO 

K 
3 

O    CM     f-    O    Ul    *- 

co 

< 

ce 

UJ 

a. 

E 

E   - 
2   « 


.5  E  E 

."Z  w  «  cfl  o  o 

—  ©  flj  ©  js  ja 

'c  £  £  £  =  3 

E  3  :=  :z  u  u 


S 
o 


CO 


f-j 


CJ 


CO 

cc 


llll 

llll 

llll 

llll 

TZ 

III! 

llll 

oz 

llll 

llll 

61 

llll 

81 
llll 

llll 

llllllll 

91 

llll 

llll 

91 
llll 

llll 

*1 

llll 

llll 

EI 

llll 

llll 

Z\ 

llll 

llll 

11 

llll 

llll 

01 

llll 

llll 

6 

llll 

llll 

8 

llll 

llll 

i 

llll 

llll 

9 

llll 

llll 

S 

llll 

llll 

* 

llll 

llll 

E 

llll 

llll 

Z 

llll 

llll 

I 

llll 

llll 

o 
o 


TIT  'I'l'l'  I'l'l'  TIT  TN1  T|T  TIT  TIT  TIT  TIT  TIT  TIT  TIT  TIT  TIT  TIT  TIT  'ITI 


1  inches 


E    E    E EE 


£    «    w    © 

~    o    a>    6 

P     P     C/>     <D 

e  ce 

e  me 
e  me 
e  ki 

nti 

nti 
ter 
om 

10     HI     (A     (fl 

E 
2   tfl 


0)     OJ    -O    .O 


=    E 

v 
u 


^  r*  in        co  to 

cm  ^  ai   co   o   r^ 

UJ 

CC 

13 
1— 
< 
CC 

o  o   O   CO   o   o 

u  o  t>  - 


tr  o"  o-  a  o 


«   2  o 

3      5 
O    X 


I  a 


■o  «  8  ^~ 


SS=ua&rouo 


.£   *   ?   E 


O.    O"    □>   •£ 


11 


TABLE  OF  CONTENTS 
Section  Title  Page  No. 

1.      INTRODUCTION 1 

2      FEATURES  OF  THE  PREDICTION  MODEL  2 

3.  INPUT  DATA  FORMAT 8 

3.1  Input  Data  Format  and  Data  Block  Sequence  .  .  8 

3.1.1  Input  Data  Format 8 

3.1.2  Data  Block  Sequence 10 

3.2  Program  Initialization  Parameters  12 

3.2.1  Definition  of  Type  4  Vehicle 13 

3.3  Roadway  Parameters.  14 

3.4  Barrier  Parameters 15 

3.5  Ground  Cover  Parameters  16 

3.6  Receiver  Parameters  17 

3.7  Alpha  Input 19 

4.  PROBLEM  FORMULATION,  ERROR  MESSAGES,  AND  EXAMPLES.  29 

4.1  Problem  Formulation  29 

4.1.1  Roadways  and  Roadway  Segments 29 

4.1.2  Traffic  Flow  Conditions 29 

4.1.3  Diffraction  of  Sound 30 

4.1.4  Shrubbery  and  Trees 31 

4.1.5  Reflectors 32 

4.1.6  Formulating  Geometry  32 

4.1.7  Receiver  Location  and  Predicted  Results   33 

4.2  Output  Error  Messages  33 

4.2.1  Error  Messages  Occurring  During  Data 

Set  Input 34 

4.2.2  Error  Messages  Occurring  During 

Check  of  Input  Data 35 

4.2.3  Error  Messages  Occurring  During 

Sound  Level  Calculations  35 


m 


TABLE  OF  CONTENTS  (Continued) 


Section 


Title 


Page  No. 


4.3  Example  Problem  1 37 

4.4  Output  Data  for  Example  Problem  1 39 

4.5  Examples  of  "Alpha  Input"  46 

4.6  Example  Problem  2 59 

REFERENCES 


APPENDIX  A  BASIC  FORMULATION  OF  THE  COMPUTERIZED 

PREDICTION  MODEL  A-l 

A-l  Energy  Mean  Sound  Level A-l 

A-2  Coded  Formulation A-5 

A-3  Spectral  Calculations A-7 

A-4  Attenuation  of  Sound  Levels A-8 

A-5  Atmospheric  Absorption  A-9 

A-6  Diffraction A-10 

A-7  Ground  Absorption A-15 

A-8  Reflection A-20 

A-9   Combination  of  Attenuation 

and  Reflection A-23 

References 

APPENDIX  B  DECLARED  SIZE  OF  ARRAYS B-l 

B-l  Parameters  Defining  the  Problem  .  .  .   B-l 

B-2  Main  Program  -  General  Dimension 

Statements B-l 

B-3  Block  Data  -  General  Dimension 

Statements B-2 

B-4  Subroutine  Input  -  General  Dimension 

Statements B-2 

B-5  Subroutine  Check  -  General  Dimension 

Statements B-2 

B-6  Subroutine  Inter-General  Dimension 

Statements B-3 

B-7  Subroutine  Geomry  -  General  Dimension 

Statements B-3 

iv 


TABLE  OF  CONTENTS 


Section 


Title 


Page  No. 


APPENDIX  C  ALLOCATION  OF  COMMON  BLOCK  DATA 
NOISE  PREDICTION  PROGRAM  .  .  . 


APPENDIX  D 


APPENDIX  E 


C-l 

ARCHITECTURE  OF  PREDICTION  CODE  D-l 

D-l   Introduction D-l 

D-2   Main  Program  Description D-l 

D-3   Main  Program  Variable  List D-4 

D-4   Main  Program  Listing D-7 


SUBPROGRAM  DESCRIPTIONS, 
E-l   Subroutine  INPUT  , 
Subroutine  CHECK 
Subroutine  INTER  , 
Subrouti 


E-2 

E-3 

E-4 

E-5 

E-6 

E-7 

E-8 

E-9 

E-10 

E-ll 

E-12 

E-13 

E-14 

E-15 

E-16 

E-17 

E-18 

E-19 

E-20 


Subroutine  COLIN 
Subroutine  DEGEN 
Subroutine  BLOCN 


Subrouti 


Subrouti 


ne  Block  DATA. 


ne  MOVE 


Subroutine  M0VE2 
Subroutine  TRI  . 


ne  INTCPT, 


Subroutine  NRPT. 
Subroutine  NR1  . 
Subroutine  ENDPT 
Subroutine  SECTN 
Subroutine  IMAGE  , 
Subroutine  MIDP. 
Subroutine  REPLCE 
Function  AMAG.  . 
Function  ANGLE  . 


E-l 

E-2 

E-17 

E-19 

E-21 

E-23 

E-25 

E-28 

E-33 

E-35 

E-37 

E-39 

E-41 

E-44 

E-46 

E-51 

E-54 

E-57 

E-58 

E-59 

E-60 


TABLE  OF  CONTENTS 

Section                    Title  Page  No, 

E-21  Function  BARFAC E-61 

E-22  Function  DEL E-64 

E-23  Function  DSQR E-67 

E-24  Function  HEIGHT E-68 

E-25  Function  IAREA E-70 

E-26  Function  IEPS E-72 

E-27  Function  KCUT E-75 

E-28  Function  KPOS E-76 

E-29  Function  ZCOR E-78 

E-30  Subroutine  GEOMRY E-80 

E-31  Subroutine  DQATR  E-115 

E-32  Function  GRADE E-117 

E-33  Function  FNC1 E-118 

E-34  Function  FNC2 E-119 


VI 


LIST  OF  FIGURES 

Number  Title  Page  No. 

2-1      COMPARISON  OF  VEHICLE  A-WEIGHTED  REFERENCE 

EMISSION  LEVELS  5 

2-2      A-WEIGHTED  OVERALL  AND  OCTAVE  BAND  REFERENCE  ENERGY 

MEAN  EMISSION  LEVELS,  (L0)E:  TWO  AXLE  (MEDIUM)  TRUCKS.  .  .     6 

2-3     A-WEIGHTED  OVERALL_AND  OCTAVE  BAND  REFERENCE  ENERGY  MEAN 

EMISSION  LEVELS,  (L0)E:  THREE  THROUGH  FIVE  AXLE  TRUCKS  .  .     7 

3-1  DATA  BLOCK  SEQUENCE 9 

4-1  SITE  PLAT  AND  SITE  MODEL  FOR  EXAMPLE  PROBLEM 38 

4-2  INPUT  DATA  FORMAT  FOR  EXAMPLE  PROBLEM  1 40 

4-3  OUTPUT  LISTING  FOR  EXAMPLE  PROBLEM  1 47 

4-4     ALPHA  INPUT  EXAMPLE  USING  COMBINATION  OF  DEFAULT  OPTION 

AND  ROADWAY  SPECIFICATION  58 

4-5  ALPHA  INPUT  EXAMPLE  USING  ROADWAY  SPECIFICATION  58 

4-6  SITE  CONFIGURATION  -  EXAMPLE  PROBLEM  2 60 

4-7  ROADWAY,  BARRIER  AND  RECEIVER  COORDINATES  61 

4-8  INPUT  DATA  FOR  EXAMPLE  PROBLEM  2 63 

4-9  OUTPUT  LISTING  FOR  EXAMPLE  PROBLEM  2  66 

A-l  BASIC  SOURCE/RECEIVER  GEOMETRY  A-2 

A-2      DEFINITION  OF  THE  PATH  LENGTH  DIFFERENCE  6  FOR  SOUND 

DIFFRACTION  BY  A  BARRIER A-ll 

A-3      BARRIER  ATTENUATION  AS  A  FUNCTION  OF  THE  PATH  LENGTH 

DIFFERENCE A-14 

A-4      BARRIER  ATTENUATION  AS  A  FUNCTION  OF  THE  FRESNEL  NUMBER- 

FOR  DIFFRACTION ' A-16 

A-5      ATTENUATION  FOR  SOUND  PROPAGATION  THROUGH  SHRUBBERY  AND  OVER 

THICK  GRASS,  MEASURED  DATA  AND  ANALYTICAL  APPROXIMATION  .  .   A-18 

A-6      ATTENUATION  FOR  SOUND  PROPAGATION  IN  TREE  ZONES,  MEASURED 

DATA  AND  ANALYTICAL  APPROXIMATION  FOR  AVERAGE  USA  FOREST.  .   A-18 

A-7      EXAMPLE  FOR  RAY  TRACES  FROM  A  REFLECTOR,  INDICATING  THE 

CONSTRUCTION  BY  MEANS  OF  AN  IMAGE  RECEIVER A-24 


vn 


LIST  OF  FIGURES 


Number 


Title 


Page  No. 


D-l 
D-2 
E-l 
E-2 
E-3 
E-4 
E-5 
E-6 
E-7 
E-8 

E-9 

E-10 

E-ll 

E-12 

E-13 

E-14 


ARCHITECTURE  OF  PREDICTION  CODE 
MAIN  PROGRAM  FLOW  DIAGRAM  .  .  . 


LEVEL  2 


SUBROUTINE  INPUT 

SUBROUTINE  BLOCN 

SUBROUTINE  SECTN 

SUBROUTINE  IMAGE 


FLOW  DIAGRAM  .  . 
RELATIVE  GEOMETRY, 
NOMENCLATURE  .  .  , 
NOMENCLATURE  .  .  , 


FUNCTION  DEL:  DERIVATION 


SUBROUTINE  GEOMRY 
SUBROUTINE  GEOMRY 
SUBROUTINE  GEOMRY 


OVERVIEW 

FLOW  DIAGRAM  OF  PRELIMINARY  OPERATIONS. 
FLOW  DIAGRAM  OF  BARRIER  DIFFRACTION 


CONSIDERATIONS  FOR  THE  DIRECT  RAY  

FLOW  DIAGRAM  OF  ABSORPTIVE  GROUND  STRIP 


SUBROUTINE  GEOMRY 
CONSIDERATIONS.  . 


SUBROUTINE  GEOMRY 
OF  REFLECTORS  .  . 


FLOW  DIAGRAM  FOR  PRELIMINARY  SELECTION 


SUBROUTINE  GEOMRY:  FLOW  DIAGRAM  FOR  CALCULATION  OF 
POTENTIAL  REFLECTIONS  


SUBROUTINE  GEOMRY:  FLOW  DIAGRAM  FOR  CONSIDERATION  OF 
DIFFRACTION  BEFORE  REFLECTION  


SUBROUTINE  GEOMRY:  FLOW  DIAGRAM  FOR  CONSIDERATION  OF 
DIFFRACTION  AFTER  REFLECTION  


SUBROUTINE  GEOMRY:  FLOW  DIAGRAM  FOR  FINAL  CALCULATION  AND 
SUMMATION  OF  SOUND  INTENSITIES 


D-2 

D-5 

E-6 

E-29 

E-52 

E-56 

E-66 

E-81 

E-94 

E-95 

E-97 

E-98 

E-99 

E-lOO 

E-102 

E-104 


LIST  OF  TABLES 


Number 


Title 


Page  No. 


2-1  COEFFICIENTS  FOR  A-WEIGHTED  REFERENCE   ENERGY  MEAN 

EMISSION  LEVELS   4 

3-1  INPUT  DATA  FORMAT .  21 

C-l  ASSIGNMENT  OF  COMMON  BLOCK  DATA C-l 


vm 


1.  INTRODUCTION 

This  study  is  one  part  of  the  continuing  effort  to  refine  and 
improve  engineering  methods  for  the  prediction  and  abatement  of  traffic- 
generated  noise  from  highways.  The  model  assumes  constant  speed  traffic 
conditions  and,  as  an  option,  includes  highway  grade  as  a  parameter  in  the 
traffic  noise  generation.  Traffic  speeds  are  limited  to  the  range  of  50  to 
100  km/h  (30  to  65  mph)  due  to  the  data  limitations  upon  which  vehicle  noise 
emissions  are  based. 

The  FHWA  Level  2  highway  traffic  noise  emission  model  is  an 
evolutionary  development  of  the  TSC  MOD-04  prediction  program  (1,2).* 
Features  of  the  FHWA  Level  2  highway  traffic  noise  emission  model  are 
described  in  Section  2.  The  third  section  of  this  report  presents  the 
input  data  format  required  to  execute  the  program.  Section  4  presents 
example  problems  indicating  the  input/output  format  of  the  FHWA  Level 
2  highway  traffic  noise  emissions  model. 

Appendices  are  presented  describing  the  basic  theory  used,  the 
architecture  of  the  program,  and  the  listing  of  the  source  code. 


*  Numbers  in  (  )  denote  references  at  the  end  of  the  report 


2.      FEATURES  OF  THE   PREDICTION  MODEL 

The  FHWA  Level  2  highway  traffic  noise  prediction  model  is  an 
evolutionary  development  of  the  TSC  MOD-04  model  (2).  The  FHWA  Level 
2  program  features  several  refinements  and  options  over  the  TSC  MOD-04  model 
that    are   expected  to    improve   prediction   accuracy  and   utility  of  the  model. 

The  salient  features  of  the  FHWA  Level  2  program  include: 

•  Revised  Vehicle  Reference  Noise  Emission  Levels: 

Based  upon  analysis  of  field  test  data  (3),  the  FHWA 
Level  2  program  utilizes  revised  speed-dependent  noise 
emission   levels  for  heavy  trucks   (type  2  vehicle)   and 
for  medium  trucks   (type  3  vehicle).     Overall  and 
octave  band  A-weighted  sound  levels  are  predicted  as 
the  user  desires. 

•  Grade  Corrections: 

The  user  may  specify,  as  an  option,  sound  level  adjust- 
ments for  heavy  trucks  dependent  upon  the  roadway  grade. 
This  adjustment  is  used  to  simulate  highway  sound  levels 
for  heavy  trucks  moving  up  grades  as  defined  by  the  road- 
way segment  geometry. 

•  Excess  Distance  Attenuation: 


The  FHWA  Level  2  prediction  model  allows  the  user  to 
specify  a  distance  attenuation  rate  for  traffic  noise 
propagation.  The  distance  attenuation  rate  is  speci- 
fied for  each  roadway/ receiver  combination.  The  atten- 
uation rate  may  vary  from  3dB/Distance  Doubling  to  any 
higher  rate  desired. 


English/Metric  and  Metric/English  Data  Conversion: 


The  FHWA  Level  2  prediction  model  will  accept  and/ or 
convert  input/output  data  using  either  English  (foot, 
mile,  hour)  units  or  Metric  (metre,  kilometre,  hour) 
units  as  directed  by  the  user. 


t     Input  Data  Annotation: 

The  user  may  include  titles  and/or  other  annotation  with  input 
data  for  roadways,  barriers,  absorptive  ground  strips,  and 
receivers   to    identify   these   parameters   on  the  output    listings. 

t     Common  Input  Data  Format  with  TSC  MOD-04: 

Existing  data  sets  formatted  for  use  with  the  TSC  MOD-04  code 
may  be  used  to  execute  the  FHWA  Level  2  program  with  very  little 
change  (See  Section  3).  Complex  site  data  successfully  executed 
by  the  TSC  MOD-04  code  need  not  be  changed  to  execute  on  the 
FHWA  Level  2  program. 

t    Bypass  Reflection  Calculations: 

The  user  may  elect  to  bypass  all  reflection  calculations  in 
estimating  receiver  sound  levels.  This  option  is  offered 
as  a  time-saving  option  since  reflections  would  rarely  increase 
the  predicted  levels  more  than  3  dB. 

t     Receiver  Sound  Level  Criterion: 


The  FHWA  Level  2  program  provides  the  user  with  an  estimate 
of  the  overall  equivalent  sound  level,  LE(A),  at  each  receiver. 
The  user,  however,  may  desire  to  know  the  individual  contribu- 
tions to  LE(A)  from  each  roadway  segment  or  from  each  segment 
contributing  traffic  noise  above  a  specified  criterion  level. 
The  FHWA  Level  2  program  allows  the  user  to  specify  a  criteria 
level  that  results  in  a  tabulation  of  the  sound  level  contribu- 
tions to  LE(A)  from  each  roadway  segment  exceeding  the  criterion 
level.  This  option  is  useful  in  evaluating  traffic  noise 
abatement  at  a  receiver. 


The  revised  vehicle  reference  noise  emission  levels  used  by  the 
FHWA  Level  2  prediction  model  are  presented  in  Table  2-1  as  coefficients  of  a 
regression  equation  of  sound  level  varying  linearly  with  the  logarithm  of  the 
vehicle  speed.  Figure  2-1  presents  a  comparison  of  the  TSC  MOD-04  reference 
levels  and  the  FHWA  Level  2  reference  levels  as  a  function  of  vehicle  speed. 
The  reference  vehicle  sound  levels  for  medium  trucks  (2  axle/6  tire)  are 
presented  in  Figure  2-2.  The  reference  vehicle  sound  levels  for  heavy 
trucks  (3  to  5  axle)  are  presented  in  Figure  2-3.  Both  the  A-weighted 
reference  level  and  the  A-weighted  octave  band  levels  are  presented  as 
functions  of  vehicle  speed.     These  results  are  from  Reference  3. 
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3.   INPUT  DATA  FORMAT 

The  input  data  format  used  by  the  FHWA  Level  2  prediction  program 
is  identical  to  that  used  by  the  TSC  MOD-04  program  (2).  To  execute  the 
FHWA  Level  2  prediction  program,  the  user  may  elect  to  use  English/Metric 
conversions  and  to  bypass  the  reflection  calculations.  This  option  is 
exercised  by  including  an  option  card  as  the  first  card  in  the  data  set. 
Additionally,  the  FHWA  Level  2  program  requires  a  data  block,  Alpha  Input, 
to  define  the  excess  attenuation  parameters  for  each  roadway-receiver 
pair. 

The  sequence  of  cards  and/or  data  blocks  required  to  define 
a  problem  for  execution  of  the  FHWA  Level  2  program  are  indicated  in  Figure 
3-1.  The  following  step-by-step  instructions  are  provided  to  assist  the 
user  in  formatting  input  data  to  the  computer  program. 

3.1      Input  Data  Format  and  Data  Block  Sequence 

3.1.1    Input  Data  Format 

The  prediction  code  accepts  input  data  from  a  card  reader. 
Three  types  of  input  data  format  are  allowed  by  the  code: 

•  Integer  Format 

A  fixed  point  number  written  without  a  decimal  point. 
All  integers  must  be  right-justified  within  the 
allotted  field  of  the  input  card. 

t  Real  Constant 


A  floating  point  number  written  with  a  decimal  point 
Normally,  the  real  number  may  be  situated  anywhere 
within  its  allotted  field  on  the  card. 


Alphanumeric 


Any  combination  of  alphabetic  and  numeric  characters 
Alphanumeric  data  may  be  located  anywhere  within  the 
allotted  field  on  a  card. 
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3.1.2     Data  Block  Sequence 

The  input  to  the  FHWA  Level  2  program  is  composed  of  an  optional 
parameter  card,  followed  by  a  title  card,  which  in  turn  is  followed  by 
up  to  six  blocks  of  data.  The  input  data  format  is  indicated  in  Table 
3-1.* 

The  option  card  is  the  first  card  in  the  input  stream.  It  consists 
of  three  parameters,  each  pertaining  to  a  new  option  offered  by  the  FHWA 
Level  2  highway  noise  prediction  program.  An  asterisk  in  column  1  identifies 
the  option  card.  A  'Y'  in  column  14  indicates  Metric  input  units  are  to  be 
expected;  and  'N'  in  column  14  denotes  English  input  units.  The  letter  'Y' 
or  'N'  in  column  28  specifies  either  Metric  or  English  output,  respectively. 
The  third  parameter  makes  available  the  option  to  bypass  all  reflection 
computations.  To  invoke  this  option  'N'  is  placed  in  column  42.  This 
parameter  card  is  not  a  mandatory  input.  If  it  is  not  present,  the  program 
will  default  to  accept  all  input  in  English  units,  to  produce  output  listing 
in  English  units,  and  to  perform  all  required  reflection  computations. 

The  input  units  assumed  by  the  program  under  the  options  selected 
by  the  user  is  as  follows: 

PARAMETER                METRIC  ENGLISH 

Length                 Metre  Foot 

Traffic  Flow  Rate       Vehicles  Per  Hour  Vehicles  Per  Hour 

Vehicle  Speed          Kilometres  Per  Hour  Miles  Per  Hour 

The  title  card  is  the  second  card  in  the  data  set  and  contains  arbitrary 
alphanumeric  descriptive  information  in  columns  2  through  60. 


*  Table  3-1  is  presented  at  the  end  of  this  section  so  as  not  to 
interrupt  the  text. 
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Data  blocks  following  the  title  card  may  be  arranged  in  an 
arbitrary  sequence.   Each  data  block  is  identified  by  an  index  as  follows: 

INDEX  DATA  BLOCK 

1  Program  Initialization  Parameters 

2  Roadway  Parameters 

3  Barrier  Parameters 

4  Ground  Cover  Parameters 

5  Receiver  Parameters 

6  Alpha  Input 

Each  data  block  is  preceded  by  a  control  card  containing  the  data  block 
index  in  column  5.  The  end  of  a  data  set  is  denoted  by  a  control  card 
with  the  integer  7  in  column  5. 

Multiple  data  sets  may  be  run  in  sequence  with  each  data  set 
being  initiated  by  the  title  card  and  ended  by  the  control  card  with  the 
integer  7  in  column  5.  Once  a  data  set  has  been  defined  for  execution 
of  multiple  data  sets,  it  is  sufficient  to  modify  only  the  data  blocks 
in  the  previous  data  set,  as  required,  to  define  the  new  data  set.  Any 
data  blocks  not  redefined  by  the  new  data  set  will  remain  unchanged  from 
that  in  the  preceeding  problem. 

The  first  data  set  must  specify,  as  a  minimum,  the  following 
data  blocks: 

INDEX  DATA  BLOCK 

1  Program  Initialization  Parameters 

2  Roadway  Parameters 
5  Receiver  Parameters 
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If  either  the  barrier  parameter  data  block  or  the  absorptive 
cover  ground  cover  data  block  are  omitted  for  the  first  data  set,  all 
calculations  involving  barriers  or  ground  cover  are  bypassed  by  the  code. 
Subsequent  to  the  execution  of  the  first  data  set,  the  user  may  redefine  any 
data  block  desired  to  create  a  new  problem.  Any  data  blocks  unchanged  will 
maintain  their  initial  values  in  subsequent  data  sets.  (See  Section  3.7, 
Alpha  Input). 

3.2      Program  Initialization  Parameters 

The  data  block  containing  the  program  initialization  parameters 
is  preceeded  by  a  control  card  with  the  integer  1  in  column  5.  Following 
the  control  card,  six  or  nine  cards  are  used  to  complete  the  program 
initialization  parameter  data  block. 

The  following  five  parameters  must  be  specified  in  the  indicated 
sequence  with  the  parameter  value  entered  as  a  real  constant  in  columns 
1  through  10  and  the  parameter  index  indicated  as  in  integer  in  column 
15. 

PARAMETER  PARAMETER  INDEX 

(Real  Constant:  Cols.  1  through  10)  (Integer:  Col.  15) 

Receiver  Height  Adjustment  1 

Number  of  Frequency  Bands  2 

Source  Height  Adjustment  for  Passenger  Cars  3 

Source  Height  Adjustment  for  Heavy  Trucks  4 

Source  Height  Adjustment  for  Medium  Trucks  5 

Source  Height  Adjustment  for  New  Vehicles*  6 


*0nly  if  new  vehicles  are  defined 


12 


If  desired,  the  user  may  include  alphanumeric  information  in 
columns  31  through  80  for  convenience  or  specific  information  on  each  of  the 
above  cards.  If  no  alphanumeric  data  is  entered,  the  above  titles  will  be 
printed  by  the  program  to  identify  the  parameters  in  the  output  listing.  If 
the  user  does  not  desire  to  define  a  "new"  vehicle,  column  20  of  the  medium 
truck  source  height  adjustment  card  must  contain  the  letter  L  denoting  the 
last  card  in  the  data  block. 

3.2.1    Definition  of  Type  4  Vehicle 

If  the  user  defines  a  "new"  (Type  4)  vehicle,  three  additional 
cards  are  required  to  complete  the  Initialization  Parameter  data  block. 
The  first  card  of  this  set  defines  the  source  height  adjustment  for  the 
Type  4  vehicle.  The  second  card  defines  the  Type  4  vehicle  sound  level 
spectra  and  the  third  card  defines  the  standard  deviations  for  the  sound 
level  spectra.  The  source  height  adjustment  card  for  Type  4  vehicles  con- 
tains the  source  height  as  a  real  constant  between  columns  1  through  10;  the 
parameter  index,  6,  in  column  15;  the  letter  L  in  column  20;  and  the  desired 
alphanumeric  information  in  columns  31  through  80.  The  next  card  is  the 
vehicle  sound  level  spectra  card.  This  card  defines  the  Type  4  vehicle 
sound  level  at  50  ft.  (15.2m).  The  last  card  defines  the  standard  deviation 
of  the  Type  4  vehicle  sound  level  spectra.  Both  the  sound  level  card  and  the 
standard  deviation  card  use  identical  input  data  formats:  nine  real  constants 
located  in  columns  1  through  5,  6  through  10,  etc.  The  constant  in  columns  1 
through  5  corresponds  to  the  A-weighted  overall  sound  level  or  standard  devia- 
tion. Each  subsequent  constant  on  each  card  corresponds  to  the  A-weighted 
octave  band  sound  level  or  standard  deviation  for  the  octave  band  center 
frequencies  from  63  Hz  to  8000  Hz  inclusive.  The  user  needs  to  define 
constants  only  for  the  number  of  octave  bands  specified  in  the  program 
initialization  parameters. 

The  user  is  reminded  that  the  overall  A-weighted  sound  level 
calculations  are  independent  of  the  octave  band  calculations. 
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3.3      Roadway  Parameters 

The  data  block  containing  the  roadway  parameters  is  preceeded 
by  a  control  card  with  the  integer  2  in  column  5  and  another  integer  in 
columns  6  through  10  to  indicate  the  number  of  roadways  defining  the  site. 
(The  present  version  of  the  FHWA  Level  2  program  allows  the  user  to  define  a 
maximum  number  of  20  roadways). 

For  each  roadway,  the  user  must  specify  a  data  block  defining 
the  traffic  flow  conditions  on  the  roadway  and  the  geometric  alignment 
of  the  roadway.  To  define  the  traffic  flow  conditions  for  a  roadway,  the 
user  may  define  up  to  a  maximum  of  five  (5)  combinations  of  vehicle  flow 
rate,  vehicle  speed,  and  vehicle  type. 

For  each  traffic  flow  condition  on  a  roadway,  the  user  specifies 
(using  two  real  constants)  the  traffic  flow  rate  in  vehicles  per  hour 
in  columns  1  through  10  and  the  mean  vehicle  speed  in  appropriate  units 
(km/h  or  mph)  in  columns  11  through  20.  Vehicle  type  is  specified  using 
an  integer  1  through  4  in  column  25.  One  card  is  used  to  specify  each 
traffic  flow  condition  up  to  a  maximum  of  5  cards  per  roadway.  For  the 
last  card  defining  a  traffic  flow  condition  for  a  roadway,  the  user  must 
specify  the  letter  "L"  in  column  31.  If  the  user  desires,  40  alphanumeric 
characters  may  be  placed  on  the  last  traffic  flow  card  to  identify  the 
roadway.  This  input  begins  in  column  41  and  may  continue  through  column  80. 

Following  the  data  cards  defining  the  traffic  flow  conditions 
on  a  roadway,  the  user  must  define  the  straight  line  roadway  segments  speci- 
fying the  roadway  alignment.  For  each  point  defining  an  end  point  of  a 
roaday  segment  the  user  specifies  the  x-coordinate  in  columns  1  through  10, 
the  y-coordinate  in  columns  11  through  20,  and  the  z-coordinate  (elevation) 
in  columns  21  through  30.  Each  coordinate  value  is  specified  as  a  real 
constant  expressed  in  appropriate  units  (metres  or  feet).  The  end  points  of 
each  segment  are  snecified  on  one  card,  sequentially,  beginning  with  the 
initial  point  defining  the  roadway.  Each  roadway  alignment  may  be  approxi- 
mated by  up  to  ten  (10)  straight  line  segments  (eleven  points  or  data  cards). 
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The  FHWA  Level  2  program  allows  the  user  to  adjust  the  noise 
emissions  for  heavy  trucks  (type  2  vehicle)  moving  up  grades.  The  program, 
however,  does  not  allow  the  user  to  define  a  traffic  flow  direction.  To 
include  grade  adjustments,  the  user  must  decide  if  a  straight  line  segment  is 
an  upgrade  segment.  If  the  straight  line  segment  is  upgrade,  then  the  user 
may  include  the  grade  adjustment  by  placing  "1"  in  column  33  of  the  first 
coordinate  card  (point)  defining  the  straight  line  segment.  Doing  this, 
causes  the  FHWA  Level  2  program  to  calculate  the  grade  of  the  straight  line 
segment  to  increase  the  noise  emission  levels  of  heavy  trucks  appropriately. 
Details  of  the  grade  adjustment  are  presented  in  Appendix  A.  If  the  user 
does  not  desire  a  grade  adjustment  for  upgrade  segments  or  for  level  or 
downgrade  segments,  either  a  "0"  or  a  blank  space  is  placed  in  column  33. 
The  grade  adjustment  specified  for  each  segment  is  printed  during  output. 

For  each  roadway  coordinate  card,  the  user  may  include  an  alpha 
numeric  title  beginning  in  column  41  and  extending  through  column  80. 
This  title  will  be  printed  with  the  output  for  the  coordinates  of  the 
point.  The  title  may  be  used  to  define  either  the  coordinate  point  or  the 
segment  defined  by  two  consecutive  coordinate  points. 

The  number  of  data  blocks  specifying  roadways  must  correspond 
to  the  number  of  roadways  specified  on  the  control  card  for  roadway  para- 
meters. 

3.4      Barrier  Parameters 

The  data  block  containing  the  barrier  parameters  (i.e.,  poten- 
tial diffractions  of  sound)  is  preceeded  by  a  control  card  specifying  the 
integer  3  in  column  5  and  a  right -justified  integer  in  columns  6  through  10 
specifying  the  number  of  barriers.  The  user  may  define  a  maximum  of  20 
barriers  using  the  present  version  of  the  FHWA  Level  2  program.  As  discussed 
in  Reference  2,  the  user  defines  barriers  to  model  site  topography,  noise 
abatement  barriers,  and  buildings.  The  top  contour  of  a  barrier  is  approxi- 
mated by  a  sequence  of  straight  line  segments.  Each  barrier  segment  is 
assumed  to  be  totally  impervious  to  sound  transmission  through  the  barrier. 
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The  coordinates  of  points  specifying  the  top  of  the  barrier  are  defined 
utilizing  the  same  format  as  that  for  roadway  segments  (see  Section  3.3). 
The  last  card  (coordinate  point)  defining  a  barrier  contains  in  addition  to 
the  three  real  constants  defining  the  point  either  the  letter  A  (absorptive 
barrier)  or  the  letter  R  (reflective  barrier)  in  column  31.  The  user  must 
define  one  set  of  barrier  coordinates  for  each  of  the  total  number  of  barriers 
specified  in  the  control  cards. 

The  letter  A  in  column  31  of  the  last  card  defining  a  barrier 
indicates  that  the  preceeding  points  describe  an  obstacle  that  reflects 
sound  weakly  and  can  hence  be  approximated  by  a  totally  sound  absorptive 
surface.  This  acoustic  characteristic  applies  to  both  sides  of  the  barrier. 

The  letter  R  in  column  31  of  the  last  card  defining  a  barrier 
indicates  that  the  preceeding  points  describe  an  obstacle  that  totally 
reflects  sound.  The  prediction  code  considers  reflections  from  vertical 
surfaces  only.  See  option  card  format. 

As  an  option,  the  user  may  include  a  40  character  alphanumeric 
title  on  the  last  barrier  coordinate  card.  These  data  begin  in  column  41 
and  may  extend  through  column  80. 

Barrier  segments  are  not  allowed  to  cross  a  roadway  segment. 

3.5      Ground  Cover  Parameters 

The  data  block  containing  the  ground  cover  parameters  is  pre- 
ceeded  by  a  control  card  containing  the  integer  4  in  column  5  and  a  second 
integer  right -justified  in  column  6  through  10  indicating  the  total  number 
of  absorptive  ground  strips  defined  for  the  data  set.  The  areas  defining 
absorptive  ground  strips  are  specified  by  the  centerline  and  the  width  of 
the  rectangular  patch.  Two  data  cards  are  required  to  describe  each  ground 
strip.  The  first  data  card  contains  the  x-,  y-,  and  z-  coordinates  of  one 
end  point  defining  the  centerline  and  the  width  of  the  strip  in  sequence. 
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These  four  numbers,  in  the  indicated  sequence,  are  specified  as  real  constants 
in  the  fields  between  columns  1  through  10,  11  through  20,  21  through  30,  and 
31  through  40.  The  second  card  contains  the  x-,  y-,  and  z-  coordinates  of 
the  end  point  defining  the  centerline  between  columns  1  through  10,  11 
through  20,  and  21  through  30,  respectively.  Following  these  three  real 
constants,  the  user  specifies  the  letter  G  (low  ground  cover)  or  the  letter  T 
(high  ground  cover)  in  column  31. 

The  letter  G  in  column  31  of  the  second  data  card  defining  a  ground 
strip  identifies  the  ground  strip  as  high  grass  or  shrubbery  and  the  letter  T 
in  column  31  identifies  the  ground  strip  as  trees.  The  computer  code  checks 
to  see  that  the  centerline  defining  a  ground  strip  does  not  cross  a  roadway 
segment.  The  user,  however,  should  ensure  that  the  defined  ground  cover 
strip  does  not  intersect  a  roadway  especially  if  one  is  attempting  to  define 
a  wide  strip. 

As  an  option,  the  user  may  define  a  40  character  alphanumeric 
title  on  the  last  ground  cover  coordinate  card.  These  data  begin  in  column 
41  and  may  extend  through  column  80. 

3.6      Receiver  Parameters 

The  data  block  containing  the  receiver  parameters  (location) 
is  preceeded  by  a  control  card  with  the  integer  5  in  column  5  and  a  second 
integer  right -justified  in  columns  6  through  10  to  indicate  the  total  number 
of  receivers  defined  for  the  data  set.  Each  receiver  location  is  defined  by 
a  single  data  card  specifying  the  x-,  y-,  and  z-coordinates  as  real  constants 
in  the  fields  between  columns  1  through  10,  11  through  20,  and  21  through  30 
respectively. 
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As  an  option,  the  user  may  specify  a  criterion  level  and  a  title 
for  each  receiver.  These  data  are  included  on  the  receiver  coordinate  card. 
The  criterion  level  is  a  real  constant  located  between  columns  33  through  38. 
The  receiver  title  is  a  40  character  alphanumeric  description  beginning  in 
column  41  and  extending  through  column  80.  Both  the  criterion  level  and  the 
receiver  title  are  printed  during  output. 

The  specified  criterion  level  for  a  receiver  instructs  the  FHWA 
Level  2  program  to  print  a  tabulation  of  selected  roadway  segments  and  the 
levels  contributed  by  those  segments  for  the  receiver.  The  program  does  this 
selection  for  each  segment  contributing  a  sound  level  5  dB  below  the  criterion 
level  for  the  receiver.  For  example,  specifying  the  criterion  level  as  50  dB 
would  result  in  a  tabulation  of  all  roadway  segments  contributing  sound 
levels  of  45  dB  or  greater  at  the  receiver.  This  option  does  not  increase 
computing  time. 

The  present  version  of  the  FHWA  Level  2  traffic  noise  prediction 
program  allows  the  user  to  define  up  to  15  receiver  locations.  Each  z-coor- 
dinate  value  specified  on  a  receiver  location  data  card  will  be  altered  by 
the  value  specified  for  the  receiver  height  adjustment  in  the  program  initial- 
ization parameters. 

The  FHWA  Level  2  program  does  not  explicitly  check  for  receiver 
locations  on  a  line  segment  defining  a  roadway,  an  absorptive  ground  strip 
centerline  or  a  vertical  plane  defining  a  barrier  segment.  However,  such 
locations  would  cause  the  code  to  attempt  the  consideration  of  a  zero 
distance  between  the  receiver  location  point  and  a  line  segment  or  plane 
which  would  result  in  one  of  the  error  messages  described  in  Section  4. 
As  a  rule-of-thumb,  the  user  should  always  specify  receiver  locations 
two  feet  (0.61  metres)  away  from  a  line  segment  defining  a  roadway  or 
ground  strip  centerline  or  from  a  vertical  plane  specifying  a  barrier 
segment. 
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At  each  receiver  location  the  highway  traffic  sound  level 
predictions  will  be  computed  as  specified  by  the  number  of  frequency 
bands  defined  in  the  program  initialization  parameters.  If  the  number 
of  frequency  bands  requested  is  specified  by  the  integer  1  only  the 
overall  A-weighted  sound  level  descriptors  are  calculated.  If  the 
number  of  frequency  bands  is  specified  by  an  integer  between  2  and  9, 
the  appropriate  A-weighted  octave  band  levels  beginning  at  63  Hz  will 
be  calculated  up  to  the  band  index  specified. 

3.7  Alpha  Input 

The  data  block  for  alpha  input  begins  with  a  card  with  the 
integer  6  in  column  5,  and  the  number  of  cards  to  follow  in  columns  9 
and  10.  In  the  succeeding  cards,  a  value  for  alpha  is  assigned  to 
each  roadway  relative  to  each  receiver,  (hereafter  referred  to  as 
roadway-receiver  pair).  Each  card  contains  an  alpha  value,  a  roadway 
number,  and  one  or  more   (up  to  15)  receiver  numbers. 

Each  roadway-receiver  pair  thus  defined  must  be  unique, 
i.e.,  may  not  be  repeated  in  the  same  or  succeeding  cards.  When  a  '0' 
is  placed  in  column  7  instead  of  a  valid  roadway  number,  the  specified 
alpha  value  will  be  assigned  to  all  roadway-receiver  pairs  for  the 
specified  receiver(s). 

The  values  of  alpha  for  all  roadway-receiver  pairs  are 
initialized  to  zero.  Consequently,  the  alpha  values  for  all  undefined 
roadway-receiver  pairs  are  zero. 

Once   alpha    is   defined,    its   values   for  all    roadway-receiver 
pairs  are   preserved  throughout  each   problem  in  the  same  input   stream. 
Thus,  alpha   input   is  not  mandatory  for  each  problem.     However,  whenever 
there    is   a    change    in    receiver   definitions,    alpha   must    be   redefined. 
Otherwise,  the  execution  of  the  program  will   be  terminated. 
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The  alpha  input  applies  only  to  the  prediction  of  the 
overall  *A-weighted  sound  levels.  For  the  octave  band  sound  level 
predictions,  the  program  utilizes  the  frequency  dependent  attenuation 
modelled  by  the  absorptive  ground  strips  and  atmospheric  absorption 
(2).  In  conducting  the  overall  A-weighted  sound  level  calculations, 
the  prediction  code  assumes  that  the  alpha  value  is  zero  for  any 
subsegment  of  a  roadway-receiver  geometry  that  is  shielded  by  either  a 
barrier  or  a  ground  strip.  Unshielded  subsegments  of  a  roadway-receiver 
geometry  are  treated  using  the  alpha  value  specified  for  the  roadway- 
receiver  pair. 
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4.  PROBLEM  FORMULATION,  ERROR  MESSAGES,  AND  EXAMPLES 

4.1      Problem  Formulation 

As  indicated  in  Section  2,  the  FHWA  Level  2  highway  traffic  noise 
prediction  program  is  an  extension  of  the  TSC  MOD-04  program.  Generally,  the 
details  required  to  model  accurately  a  traffic  noise  prediction  scenario 
apply  equally  to  both  programs. 

4.1.1  Roadways  and  Roadway  Segments 

The  program  describes  a  roadway  by  the  traffic  flow  conditions 
defined  for  the  roadway.  Each  roadway  may  be  defined  by  a  maximum  number 
of  five  different  traffic  flow  conditions.  The  model  allows  a  maximum 
number  of  twenty  (20)  roadways  to  be  defined.  Roadways  may  intersect  or 
coincide  geometrically. 

The  alignment  of  each  roadway  is  defined  by  a  connected  series 
of  straight  line  roadway  segments.  No  increase  in  prediction  accuracy 
is  achieved  by  defining  a  straight  line  roadway  by  a  series  of  straight 
line  roadway  segments.  Computing  time  is  directly  related  to  the  number 
of  combinations  of  roadway  segment/receiver  configurations. 

For  upgrade  roadway  segments,  heavy  truck  noise  emissions  may 
be  increased  as  specified  by  the  user.  Using  the  concept  of  an  equivalent 
lane,  the  user  must  group  lanes  and  according  to  the  traffic  flow  direction 
when  including  grade  as  a  parameter  in  the  noise  prediction.  The  appropriate 
usage  is  illustrated  in  the  example  problem  in  Section  4.6. 

4.1.2  Traffic  Flow  Conditions 

The  program  describes  a  traffic  flow  condition  as  a  combination 
of  vehicle  speed  and  vehicle  traffic  capacity  for  each  of  the  four  vehicle 
types  recognized  by  the  code.  Vehicle  speed  is  expressed  in  either  miles 
per  hour  or  kilometres  per  hour  and  vehicle  traffic  capacity  is  expressed 
as  the  number  of  vehicles  per  hour.  Hence,  the  predicted  energy  mean  levels 
and  percentile  levels  are  associated  with  an  hourly  time  period. 
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Each  roadway  is  defined  by  a  maximum  number  of  five  traffic 
flow  conditions.   A  roadway  can  be  used  to  model  a  multi-lane  highway  using 


the  geometric  mean  distance  from  source  to  recei  ver, V  DnDf ,  based  upon 
the  near  lane  (Dn)  distance  and  the  far  lane  distance  (Df)  as  the  user 
might  deem  appropriate.  When  using  grade  adjustments  for  heavy  truck  noise 
emissions,  equivalent  lanes  must  be  determined  from  groups  of  lanes  with 
identical  traffic  flow  direction. 

It  is  difficult  to  state  guidance  as  to  which  traffic  flow  combi- 
nations may  result  in  the  "worst  hour"  sound  levels  at  a  receiver,  especially 
for  multi -roadway  models.  Generally,  traffic  flow  mixes  comprising  a  signifi- 
cant percentage  of  heavy  trucks  moving  at  high  speed  result  in  higher  sound 
levels. 

4.1.3    Diffraction  of  Sound 

The  program  considers  only  the  most  effective  diffraction  of 
sound  from  a  subsegment  of  a  roadway  segment  to  a  receiver  for  source- 
receiver  paths  containing  multiple  diffractions  (i.e.,  barriers).  The 
user  should  attempt  to  recognize  this  characteristic  so  that  the  available 
number  of  barriers  that  can  be  defined  (twenty  maximum  in  the  present  version) 
are  utilized  efficiently.  For  example,  a  barrier  placed  on  top  of  a  berm 
should  be  modeled  as  a  single  barrier  at  the  maximum  elevation  points  rather 
than  as  two  barriers. 

The  program  defines  a  barrier  by  its  top  edge  and  does  not  recognize 
a  bottom  edge  for  the  barrier.  For  example,  a  barrier  defined  for  an  elevated 
highway  is  simply  a  high  screen  from  the  defined  top  edge  to  the  imaginary 
ground  level. 

The  top  edge  of  a  barrier  may  be  defined  by  up  to  a  maximum  number 
of  ten  (10)  straight  line  segments.   Barriers  may  intersect  themselves  or 
other  barriers.  Barriers  may  be  specified  as  perfectly  reflective  or  perfect- 
ly absorptive  acoustically.  The  reflectivity  or  absorptivity  acoustic  charac- 
teristics of  a  barrier  apply  to  both  sides  of  the  barrier. 
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The  diffraction  calculations  used  to  estimate  barrier  attenuation 
are  not  dependent  upon  the  absorptive  characteristics  declared  for  the 
barrier. 

Barriers  are  not  allowed  to  intersect  roadways.  Barriers  may, 
however,  intersect  absorptive  ground  strips.  Effects  of  acoustic  diff- 
raction around  the  end  of  a  barrier  are  ignored. 

4.1.4    Shrubbery  and  Trees 

The  program  describes  shrubbery  and  trees  by  a  straight  center- 
line  and  a  width  defining  a  rectangular  patch  of  absorptive  ground  cover. 
Shrubbery  is  assumed  to  be  ten  feet  (3m)  high  and  trees  are  assumed  to 
be  twenty  feet  (6m)  high  above  the  defined  centerline. 

If  during  the  analysis  of  a  roadway  segment  or  subsegment  a  dif- 
fraction is  encountered  on  the  source-receiver  path,  all  attenuation  effects 
of  shrubbery  and/or  trees  are  ignored  for  that  source-receiver  path.  Hence, 
the  program  cannot  estimate  the  attenuation  effects  of  plantings  on  berms, 
for  example.  If  the  user  is  in  doubt  concerning  the  utility  of  introducing  a 
ground  strip,  do  so  since  the  prediction  algorithm  will  make  the  correct 
judgements  concerning  attenuation  of  traffic  noise.  The  defined  centerline 
of  an  absorptive  ground  strip  is  not  allowed  to  intersect  a  roadway  segment. 
Absorptive  ground  strips  may,  however,  intersect  other  ground  strips  or 
barriers. 

Since  the  FHWA  Level  2  program  can  account  for  excess  distance 
attenuation  effects  by  specifying  the  "alpha  input",  the  user  may  decide 
to  exclude  the  absorptive  ground  cover  formulation  from  a  scenario.  However, 
the  specification  of  a  non-zero  value  of  alpha  will  apply  only  to  the  A-weight- 
ed  overall  sound  level  predictions  for  roadway  subsegments  that  are  unshielded 
from  the  receiver.  That  is,  excluding  absorptive  ground  strips  and  specifying 
a  non-zero  value  of  alpha  will  model  a  "soft  site"  for  the  overall  A-weighted 
sound  level  estimates  and  a  "hard  site"  for  the  octave  band  calculations. 
This  issue  may  be  resolved  only  on  the  basis  of  the  users'  experience  and  the 
results  of  future  research. 
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4.1.5  Reflectors 

The  program  models  a  reflective  surface  using  a  barrier  with 
reflective  acoustic  characteristics.  The  user  should  include  large  build- 
ings or  other  potential  reflective  surfaces  in  his  site  model.  The  program 
is  capable  of  defining  only  vertical  plane  surfaces.  Hence,  reflections 
from  either  inclined  or  horizontal  surfaces  cannot  be  considered  by  the 
prediction  model . 

The  maximum  increase  in  receiver  sound  levels  resulting  from 
reflections  is  3  dB  corresponding  to  an  incoherent  sound  source.  No 
effect  of  acoustic  wavelength  is  considered.  If  the  direct  ray  connect- 
ing a  source  point  and  an  image  receiver  point  intersects  a  barrier  within 
two  feet  (0.6m)  of  the  top  edge,  reflection  is  ignored. 

The  user  may  elect  an  option  to  bypass  reflection  calculations. 
In  this  case  the  barriers  must  still  be  declared  as  either  absorptive 
or  reflective,  but  the  program  will  override  any  reflection  calculations. 

4.1.6  Formulating  Geometry 

The  FHWA  Level  2  highway  traffic  noise  prediction  program  defines 
a  site  geometry  using  only  straight  line  segments  and  vertical  planes 
(barriers)  described  by  the  most  elevated  edge  comprised  of  straight 
line  segments.   The  program  does  not  recognize  a  ground  plane  as  such. 

The  user  should  basically  attempt  to  define  only  maximum  topo- 
graphic elevations  and  should  include  important  reflective  surfaces  (if 
desired). 

It  is  good  practice  to  utilize  a  scale  plat  of  the  site  in 
formulating  coordinates  for  roadways,  barriers,  absorptive  ground  strips, 
and  receivers.  Doing  this  will  allow  the  user  to  avoid  the  grief  and 
wasted  time  resulting  from  non-execution  of  the  code  as  a  result  of  a 
barrier  or  a  ground  strip  segment  intersecting  a  roadway.  However,  the 
present  version  of  the  program  will  check  input  data  for  intersections 
prior  to  beginning  any  calculations  so  that  computation  time  is  not  wasted. 
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As  a  rule-of-thumb,  the  user  should  locate  coordinate  points 
for  barriers,  absorptive  ground  strips  and  receivers  no  closer  than  two 
feet  (0.6m)  from  a  non-compatable  geometric  element  to  avoid  rejection 
of  the  input  data. 

4.1.7    Receiver  Location  and  Predicted  Results 

The  FHWA  Level  2  highway  traffic  noise  prediction  program  allows 
the  user  to  specify  up  to  a  maximum  of  15  receiver  locations  at  which 
sound  level  estimates  are  to  be  conducted.  A  receiver  should  not  be  located 
within  two  feet  (0.6m)  of  either  a  roadway  segment,  barrier  surface,  or  an 
absorptive  ground  strip.  Such  locations  may  result  in  problems  with  the 
arithmetic  for  extreme  geometric  configurations.  If  the  code  encounters  such 
problems,  execution  is  stopped. 

Since  the  model  formulation  does  not  physically  model  a  ground 
plane  it  is  necessary  to  specify  an  appropriate  "alpha"  value  for  the  ex- 
cess distance  attenuation  for  each  roadway-receiver  combination.  The  user 
must  exercise  judgement  in  selecting  the  appropriate  value  for  alpha. 

4.2      Output  Error  Messages 

The  FHWA  Level  2  highway  traffic  noise  prediction  program  prints 
several  error  messages  that  assist  the  user  in  either  identifying  illegal 
input  data  or  warning  the  user  that  an  error  has  occurred. 

The  error  messages  printed  by  the  program  and  the  sequence  of 
events  taken  by  the  program  in  the  event  that  an  error  has  occurred  are 
described  below.  A  fatal  error  is  an  error  that  stops  execution  of  the 
program  for  all  data  sets  following  that  set  in  which  the  error  occurs. 
A  reject  error  is  an  error  in  which  the  program  stops  execution  of  the 
data  set  in  which  the  error  occurs  but  continues  its  attempt  to  execute 
subsequent  data  sets.  The  user  should  note  that  a  reject  error  may  result 
in  a  subsequent  fatal  error  due  to  the  inherent  flexibility  of  the  input 
data  sequence  allowed  by  the  program  (see  Section  3).  Warning  messages 
notify  the  user  that  a  non-fatal  restriction  on  the  input  data  or  error 
during  execution  has  been  encountered  but  that  the  program  is  continuing 
to  execute  the  defined  problem. 
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4.2.1     Error  Messages  Occurring  During  Data  Set  Input 

Prior  to  execution  of  a  data  set  the  program  checks  the  input 
data  to  see  that  for  each  vehicle  type  specified  the  vehicle  speed  falls 
within  the  range  of  30  mph  to  65  mph  (50  km/h  to  100  km/h)  and  also  checks 
to  insure  that  the  geometric  description  of  a  roadway  and  a  barrier  includ- 
ed two  end  points. 

Vehicle  Speed  Range  Exceeded:  If  the  user  has  specified  a  vehicle 
speed  outside  the  range  of  30  mph  to  65  mph  the  following  warning  messages 
are  printed  as  appropriate: 

"VEHICLE  SPEED  SUPPLIED  IS  LESS  THAN  30  MPH  ADJUSTED  TO  30" 

OR 
"VEHICLE  SPEED  SUPPLIED  IS  GREATER  THAN  65  MPH  ADJUSTED  TO  65" 

The  program  continues  execution  with  the  indicated  adjustments  for 
vehicle  speed  for  the  roadway  being  considered.  If  the  program  is  operating 
under  the  Metric  option,  appropriate  speeds  in  km/h  are  printed. 

Illegal  Definition  of  Roadway  or  Barrier:  If  the  user  has  attempt- 
ed to  define  either  a  roadway  or  a  barrier  by  one  coordinate  point  (two 
points  minimum  are  required,  see  Section  3)  the  following  fatal  error 
messages  are  printed: 

"INSUFFICIENT  ROAD  SECTIONS" 
"INSUFFICIENT  BARRIER  SECTIONS" 

If  this  error  occurs,  execution  of  the  program  stops.  The  user  should 
correct  the  appropriate  input  data.  If  multiple  data  sets  are  to  be  executed 
with  either  receiver  locations  or  roadway  locations  changed  between  different 
runs,  it  is  required  to  redefine  the  "alpha  input"  table.  If  the  "alpha 
input"  table  is  not  redefined,  program  execution  will  be  terminated. 
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4.2.2  Error  Messages  Occurring  During  Check  of  Input  Data 

Subsequent  to  reading  the  input  data,  but  prior  to  execution 
of  sound  level  calculations,  the  program  checks  to  see  if  either  a  barrier 
segment  or  the  centerline  of  an  absorptive  ground  strip  intersects  a  roadway 
segment.  The  program  checks  for  such  intersections  using  only  the  x-y 
coordinates  of  the  line  segments.  The  user  can  prevent  such  errors  by 
using  a  scale  plat  of  the  site  to  formulate  the  roadway  segment,  barrier 
segment,  and  absorptive  ground  strip  coordinates.  If  such  an  intersection 
occurs  the  following  reject  error  messages  are   printed  as  appropriate: 

"ILLEGAL  BARRIER  INTERSECTS  ROADWAY  R  XX  RS  XX  B  XX  BS  XX" 
where  R  XX  denotes  roadway  number  XX 

RS  XX  denotes  roadway  segment  number  XX 
B  XX  denotes  barrier  number  XX 
BS  XX  denotes  barrier  segment  number  XX 
"ILLEGAL  GROUND  STRIP  INTERSECTS  ROADWAY  R  XX  RS  XX  AGS  XX" 
where  R  XX  denotes  roadway  number  XX 

RS  XX  denotes  roadway  segment  number  XX 

AGS  XX  denotes  absorptive  ground  strip  number  XX 

These  reject  error  messages  are  printed  for  each  intersection 
encountered  in  the  input  data  for  both  barrier  segements  and  absorptive 
ground  strips.  Hence,  if  illegal  intersections  are  encountered,  all  such 
illegal  data  will  be  displayed  to  the  user.  Upon  completing  the  data 
check,  the  program  stops  execution  of  the  data  set  containing  illegal 
intersections  of  roadway  segments  with  barrier  segments  and/or  ground 
strips  and  attempts  to  read  the  next  data  set.  The  user  should  check  and 
correct  the  input  data. 

4.2.3  Error  Messages  Occurring  During  Sound  Level  Calculations 

The  FHWA  Level  2  highway  traffic  noise  prediction  program  checks 
for  illegal  operations  during  execution  of  subroutine  GEOMRY.   Subroutine 
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GEOMRY  conducts  the  calculations  associated  with  the  basic  problem  con- 
sidered by  the  prediction  code  (see  Appendix  A).  Two  basic  types  of  errors 
can  occur  that  are  internal  to  the  code  in  Subroutine  GEOMRY:  attempting 
to  shift  a  point  on  a  zero  length  line  segment  or  encountering  too  many 
reflections  at  a  receiver.  The  error  messages  are  as  follows: 

"***  ANGLE  SUBTENDED  AT  RECEIVER  BY  ROAD  SEGMENT  IS 
APPROACHING  ZERO" 

INITIAL  PT.  OF  ROAD  SEGMENT  (COORDINATES) 
END  PT.  OF  ROAD  SEGMENT  (COORDINATES) 
RECEIVER  POINT  (COORDINATES) 

This  message  is  a  warning  statement  and  the  code  continues 
execution. 

"ERROR  IN  MOVE" 

This  is  a  reject  error  message  indicating  that  the  subroutine 
MOVE  has  attempted  to _ shift  a  point  on  a  line  segment  of  zero  length.  The 
user  should  check  the  input  data  for  roadway  segments  and  barrier  segments. 
The  code  halts  execution  and  proceeds  to  the  next  data  set. 

"ERROR  IN  M0VE2" 

This  is  a  reject  error  message  indicating  that  the  subroutine 
M0VE2  has  attempted  to  shift  a  point  on  a  line  segment  of  zero  length  (in 
the  x-y  plane).  The  user  should  check  the  input  data  for  roadway  segments 
and  barrier  segments.  The  code  halts  execution  and  proceeds  to  the  next  data 
set. 

If  the  maximum  allowable  number  of  reflections  (eleven)  is  ex- 
ceeded at  a  receiver,  the  code  halts  execution  and  prints  the  following 
message: 
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"TOO  MANY  REFLECTIONS  RCV  XX  R  XX  S  XX" 
where  RCV  XX  is  receiver  number  XX 

R  XX  is  roadway  number  XX 

S  XX  is  roadway  segment  number  XX 

The  user  should  check  the  receiver  location  in  relation  to  the 
reflective  barriers  defined  for  the  problem  to  see  if  simplifications 
in  the  site  model  are  possible  or  eliminate  reflection  calculations  using 
the  input  data  option. 

4.3      Example  Problem  1 

This  section  presents  examples  illustrating  the  translation 
of  site  information  into  the  input  data  format  required  by  the  program. 
The  first  example  illustrates  the  output  data  format  utilized  by  the  FHWA 
Level  2  program.  This  example  is  identical  to  that  described  in  Reference 
(2). 

Figure  4-1  illustrates  a  highway  situation  comprising  a  two 
lane  highway  (Route  95)  and  a  single  feeder  lane  (Route  195)  joining  the 
highway.  The  lane  widths  are  12  feet  (3.6m)  with  no  median  strip  for  the  two 
lane  highway.  Except  for  a  six  foot  (1.8m)  high  earth  berm  located  on  the 
north-eastern  edge  of  the  two  lane  highway  the  site  topography  is  essen- 
tially flat.  A  20  foot  (6.1m)  high  barrier  is  located  along  the  western 
edge  of  Route  95  and  a  stand  of  trees  is  located  along  Route  195.  It  is 
desired  to  evaluate  the  sound  levels  in  the  north-eastern  quandrant  of  the 
site  at  100  feet  (30.48m)  from  the  centerline  of  Route  95. 

It  is  decided  to  evaluate  the  receiver  sound  levels  for  alter- 
nate site  configurations  as  follows: 

t  Configuration  (Data  Set)  1:  Site  as  described  above 
deleting  reflection  calculations  from  the  barrier. 
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•  Configuration   (Data  Set)   2:     Configuration  1  with  the 
absorptive  ground  strip   (trees)   and  the  barrier 
deleted. 

•  Configuration  (Data  Set)  3:  Configuration  2  with  the 
heavy  trucks  (Type  2)  vehicle  replaced  with  the  user- 
defined   (Type  4)  vehicle. 

For  each  problem,  it  is  assumed  that  the  site  is  "acoustically 
hard"  for  each  roadway-receiver  combination.  That  is,  the  "alpha  input" 
is  zero  for  all  roadway-receiver  combinations.  Further,  input  data  will 
be  specified  in  English  Units  (foot,  mile,  hour)  and  the  output  data  will 
be  expressed  in  Metric  Units  (metre,  kilometre,  hour).  The  traffic  flow 
parameters   are   determined   as    indicated    in   the   site    plat   of   Figure   4-1. 

The  input  data  for  the  sample  problems  is  indicated  in  Figure 
4-2  using  a  standard  coding  form.  The  notations  enclosed  by  asterisks 
are  for  user  reference  and  do  not  constitute  data.  Data  Set  1  comprises 
the  basic  problem  formulation.  Data  Set  2  modifies  Data  Set  1  by  deleting 
the  barrier  and  the  ground  strip.  Data  Set  3  modifies  Data  Set  2  by  re- 
defining the  heavy  truck  (Type  2  vehicle)  with  the  user-defined  Type  4 
vehicle. 

4.4  Output  Data  for  Example  Problem  1 

The  FHWA  Level  2  highway  traffic  noise  computer  program  immed- 
iately prints  output  once  the  input  file  for  a  data  set  is  read. 

The  heading  is  printed  at  the  top  of  a  page  and  indicates  the 
selected  option  for  engineering  units  for  input  and  output  data.  Since 
the  examples  used  English  input  and  Metric  output  the  heading  is: 

"TRAFFIC    NOISE    PREDICTION    (INPUT    UNITS:       ENGLISH,    OUTPUT    UNITS:       METRIC)" 
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Next,  the  defined  title  is  printed.  Following  the  title,  the  input 
data  is  printed  (using  appropriate  units)  in  the  following  sequence: 

•  Program  Initialization  Parameters:  These  data  are  printed 
only  for  the  first  problem  in  the  data  stream. 

•  Roadway  Parameters:  Roadway  title,  traffic  count  and 
speed  by  vehicle  type,  and  coordinates  of  the  roadway  segment 
end-points  with  grade  adjustment  index  and  annotation  are 
printed  for  each  roadway  and  each  problem  in  the  data  stream. 

•  Barrier  Parameters:  Following  the  barrier  number,  the  letter 
A  or  R  is  printed  in  parenthesis.  The  barrier  segment  coordi- 
nates are  printed  in  sequence.  Following  the  first  barrier  co- 
ordinate, the  barrier  title  is  printed  (Note:  The  barrier  may  be 
declared  as  reflective  (R),  but  the  specification  is  ignored  if 
the  user  selects  the  option  to  bypass  reflection  calculations.) 

•  Absorptive  Ground  Strip  Parameters:  Following  the  ground 
strip  number,  the  letter  T  or  G  is  printed  in  parenthesis. 
The  coordinates  of  one  end  point  and  the  width  of  the  strip 
are  printed  in  the  next  line.  The  last  line  comprises  the 
coordinates  of  the  other  end  point  of  the  strip  and  the  title 
for  the  strip. 

•  Receiver  Parameters:  Receiver  parameters  are  listed  in  the 
input  sequence.  The  receiver  number  is  printed  followed  by 
the  receiver  coordinates  (x,  y,  z),  the  receiver  criterion 
sound  level  (LC),  and  the  receiver  title.  The  z  coordinate 
value  printed  is  the  input  value  plus  the  receiver  height 
adjustment  specified  in  the  program  initialization  parameters. 

•  Alpha  Input:  A  table  of  alpha  values  is  printed  to  document 
the  input  specification.  The  alpha  values  printed  corres- 
pond to  each  roadway  (column)  and  each  receiver  (row). 

These  values  are  defined  by  the  user. 

The  printing  of  the  input  data  is  a  reference  listing  for  the 
user  documenting  the  input  data  used  for  the  traffic  noise  estimates. 
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Following  the  listing  of  the  input  data,  the  program  then  re- 
prints the  user-defined  title  and  prints  the  predicted  traffic  noise  levels 
by  receiver  in  the  format: 

•  Receiver  Number,  the  X,  Y,  Z  coordinates  of  the  receiver  (in 
engineering  units  specified),  and  the  receiver  title. 

•  A-wei ghted  Octave  Band  Sound  Levels  (if  the  number  of  frequency 
bands  is  specified  to  be  greater  than  1  in  the  program  initial- 
ization parameters).  The  title  "OCTAVE  BAND  LEVELS  (A)"  is 
printed  followed  by  the  octave  band  center  frequencies  from  63 
Hz  to  8000  Hz.  Under  the  indicated  center  frequency  the  pre- 
dicted A-wei ghted  octave  band  sound  level   is  printed. 

§  A-weighted  Sound  Level  Metrics:  Following  the  octave  band 
predictions  the  following  heading  is  printed: 

LE(A)     LEOB(A)       L90       L50       L10       SIGMA 

-  LE(A)  is  the  overall  A-weighted  equivalent  sound  level  esti- 
mated using  the  theory  of  Appendix  A  and  the  "alpha"  values 
specified  for  the  receiver. 

-  L90  is  the  overall  A-weighted  sound  level  exceeded  90%  of  the 
time  (hour)  estimated  using  the  theory  of  Appendix  A  (Equation 
(A-14)).     Calculated  from  L50  and  SIGMA. 

-  L50  is  the  overall  A-weighted  sound  level  exceeded  50%  of  the 
time  (hour)  using  the  theory  of  Appendix  A  (Equation  (A-12)). 
Calculated  from  LE(A)   and  SIGMA. 

-  L10  is  the  overall  A-weighted  sound  levels  exceeded  10%  of  the 
time  (hour)  using  the  theory  of  Appendix  A  (Equation  (A-13)). 
Calculated  from  L50  and  SIGMA. 

-  SIGMA  is  the  estimated  standard  deviation  of  the  sound  level 
variation  during  the  hour.  See  Appendix  A,  Equation  (A-7)  and 
Equation   (A-10). 

-  LE0B(A)  is  the  estimated  A-weighted  overall  octave  band  sound 
level  obtained  by  taking  an  intensity  summation  of  the  A-weight- 
ed octave  band  levels.  Since  the  octave  band  levels  are  esti- 
mated using  frequency-dependent  distance  attenuation  resulting 
from  ground  strips  and  atmospheric  absorption  (2)  the  value 
LE0B(A)  may  not  agree  exactly  with  the  LE(A)  estimate  using 
the  "alpha"  input. 

The  FHWA  Level  2  highway  traffic  noise  prediction  program  per- 
forms calculations  by  receiver  locations  considering  all  other  parameters. 
Hence,  if  predicted  results  are  obtained  without  an  error  message  being 
printed,  the  program  has  completed  the  required  sound  level  estimates 
for  the  recei ver(s). 
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Following  the  receiver  sound  level  estimates,  the  FHWA  Level 
2  program  will  print  a  table  of  "receiver  sound  level  contributions"  at  the 
user's  option.  If  the  criterion  level  has  been  set  to  zero,  this  tabulation 
is  not  printed.  This  option  allows  the  user  to  identify  roadways  or  roadway 
segments  contributing  to  the  total  receiver  sound  level,  LE(A),  in  excess 
of  the  specified  criterion  level.  For  a  given  problem,  several  roadway 
segments  may  result  in  sound  level  contributions  of  nearly  equal  magnitude. 
The  criterion  level  specified  for  a  receiver  is  in  terms  of  the  total  sound 
level  at  the  receiver.  In  order  to  list  all  roadway  segments  that  may 
significantly  contribute  to  the  total  sound  level,  the  FHWA  Level  2  program 
uses  an  internal  criterion  level  5  dB  below  the  user  specified  criterion 
level  to  select  which  segments  and  levels  are  to  be  printed. 

In  this  example  problem,  the  criterion  level  is  specified  as 
50  dB  for  all  receivers.  Each  roadway  is  defined  by  a  single  segment  and 
all  roadways  and  intervening  attenuation  contribute  sound  levels  exceeding 
the  internal  45  dB  criterion  level  used  by  the  program.  Hence,  the  tabula- 
tion comprises  a  column  of  numbers  presenting  the  contribution  of  each 
roadway  segment  to  the  total  receiver  sound  level,  LE(A).  The  reader  may 
wish  to  verify  that  the  intensity  summation  of  the  sound  levels  from  each 
segment  equals  the  total  receiver  sound  level. 

The  computation  related  to  filling  the  tabulation  of  the  sound 
level  contributions  for  each  receiver  is  conducted  as  part  of  the  calcula- 
tions required  to  obtain  the  LE(A)  estimate.  Hence,  requesting  the  tabulation 
does  not  increase  the  computing  time  of  the  FHWA  Level  2  program. 

Figure  4-3  presents  the  FHWA  Level  2  highway  traffic  noise  predic- 
tion output  listing  corresponding  to  the  input  data  presented  in  Figure 
4-2. 

4.5      Examples  of  "Alpha  Input" 

The  FHWA  Level  2  highway  traffic  noise  prediction  program  util- 
izes input  data  format  for  all  data  blocks  except  "Alpha  Input"  that  is 
identical  to  the  TSC  MOD-04  prediction  program.  The  "Alpha  Input"  is 
a  feature  option  of  the  FHWA  Level  2  model. 
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JKAFF1C   NUISt   PREDICTION    t INPUT    UNITS*   ENGLISH    .OUTPUT   ONUS*   METRIC      ) 


SAWLt    PROBLEM    1 


PROGRAM    INU1AL1ZA11QN    PAKAMtltKS 


1.52*000+00 

9.C0000D+00 

0.0 

2. 438400+00 

0.0 

1  .066800*00 


1  RECEIVER  HEIGHT  ADJUSTMEN! 

2  NUMBER  OF  FREQUENCY  BANDS 

3  HEIGH!  ADJUSTMENT  FOR  TVPE  1  VEHICLES 
*  Htl&Hf  ADJUSTMENT  FOR  TTPE  2  VEHICLES 

5  HblGHT  ADJUSTMENT  FUR.  TVPE  3  VEHICLES 

6  HEIGHT  ADJUSTMENT  FOR  TVPE  4  VEHICLES 


UPUUNAL  NUlSfc  SPECIKUM 


CUNblANIS 
SID.  DbV. 
RUNWAY     1 
NUMPER  OF 
TVPE  I  VEH 

1 
NUMBER  OF 
TVPE  2  VEH 
1 


t  77.0    52.0    62.0    68. 0    72.0 

I     3.5     3.5     3.5     3.5     3.$ 
R1.95  NORTHBOUND  MITH  HEAVY  TRUCKS 


72.0 
3.5 


70.0 
3.5 


64.0 
3.5 


50.0 
3.5 


VEH/H 

1.35000+03 
VEH/H 


KMPH 

B.0<t67D+01 
KMPH 


NUMBER 

1 

2 

RUADNAV 
NUMtfEK  UF 
TYPE  1  VEH 

1 
NUMBER  OF 
TYPE  2  VEH 

I 


X 

0.0 
3.04600*03 


7.50000*01    B. 04670*01 

SOURCE  COURO  IN  M 

V  I 

1.82880+00    0.0 

1.828B0+00    0.0 


GRADE 
0 
0 


COMMENTS 

SEGMENT  NORTH  OF  RT.195  INTERSECTION 


K1.95  rORIHBUUND  WITH  HEAVY  TRUCKS 


VEH/H 

1.25000*03 
VEH/H 


KMPH 

8. 04670*01 
KMPH 


NUMBER 

1 

2 

ROADWAY 
NUMBER  OF 
TYPE  1  VEH 

1 
NUMBER  UF 
TYPE  2  VEH 

1 


-3.04800*03 
0.0 


5.00000*01        6.04670*01 

SOURCE   CUURO  IN   M 

Y  Z 

1. 82080*00         0.0 

1.82880*00         0.0 


GRAOE 
0 
0 


COMMENTS 

SEGMENT   SOUTH  OF  RT.195    INTERSECTION 


R1.195   NURIHWESTBOUNO  HUH  HEAVY    TRUCKS 


VtH/H 

1.00000*02 
VtH/H 


KMPH 

7.24200*01 
KMPH 


2.50000*01         7.24200*01 
SOURCE    CUJRO    IN    N 


NUfBER 

1 

2 

ROADWAY 
NUMBER  OF 
TYPE  I  VEH 

1 
NUMBER   OF 
TVPE    2   VEH 

1 


3.04600*03 
O.U 


1.52400*03 
1.8  2880*00 


2 

0.0 
0.0 


GRAOE 
0 
0 


COMMENTS 

SEGMENT    INTERSECTING  RT.95   NORTHBOUNO 


RT.95    SOUTHBOUND   WITH   HEAVY    TRUCKS 


VEH/H 

5.00000*02 
VEH/H 


KMPH 

9.65600*01 
KMPH 


NUMBER 

1 

2 
BARRIER 
NUMBER 

1 

2 
BAKKltR 
NUMKEK 

1 

2 


•3.04600*03 
3.04600*03 

1  IRI 

-3.0480D*01 
6.09600*01 

2  U) 
X 

3.04800*01 
3.04800*03 


5.00000*01        9.65600*01 
SOURCE   COORD    IN  M 
V  I 

-1.82880*00  0.0 
-1.62880*00  0.0 
BARRIER   COORO    IN   H 


GRADE 
0 
0 


COMMENTS 

SEGMENT   KUNMING   NORTH- SOUTH 


-6.09600+00 
-6.09600*00 


6.09600+00 

6. 09600+00 


BAKRIER    COURO    IN   M 


ABSORBING    SIK1P  3 

PT  X 

1  0.0 

2  -6.C9600+01 
RECEIVER 


6.09600+00 
6.09600+00 
(I) 


1.62880+00 
1.82880+00 


Y  I 

1.52400+01  0.0 
4.5  7200+01  0.0 
RECEIVER  COURO  IN  M 


REFLECTIVt  BARRIER  *    OF  RT.95S 


ABSORPTIVE  BERN  E  OF  ROADWAY  fl 


MIOIH 
1.52403*01 

TREES  N.E.  OF  RT.195 


NU^BtR 
1 
2 

3 
4 


X 

0.0 

1.5240D+01 
3. 04600+01 
4.5  7200+01 


3.04800+01 
3. 04800+01 
3.0<i80D+01 
3.04800+01 


1.52400+00 
1.524  00+00 
1.52400+00 
1.52400+00 


LC 

50.0 
50.0 
50.0 
50.0 


6.C96C0+01         3.04800+01         1.52400+00         50.0 


COMMENTS 

N.E.    OF    TREES 

E    OF    ROADWAY    II    C    N    OF  RECEIVER    #1 

E    OF    ABSORPTIVE    BERN    C  N   OF    RECEIVER    12 

E    OF    ABSORPTIVE    BERN    t   N   OF    RECEIVER    #3 

E   OF    ABSORPTIVE   BERN    £  N   OF   RECEIVER   14 


Figure  4-3.     OUTPUT  LISTING  FOR  EXAMPLE  PROBLEM  1 
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A  L 

H  H  A 

1 

ABLE 

NRC/NR 

1 

2 

3 

* 

1 

0.0 

0.0 

0.0 

0.0 

2 

0.0 

0.0 

0.0 

0.0 

3 

0.0 

0.0 

0.0 

0.0 

4 

0.0 

0.0 

0.0 

0.0 

5 

0.0 

0.0 

0.0 

0.0 

SAMPLE  PROBLEM  1 
RECEIVER 

1 

XRC         YRC         ZRC 

0.0         30.5          1.5      N.E.  OF 

TREES 

63 
17.6 

UCTAVE  BAND  LEVELS  (A) 
125    250     500    1000    2000    4000 
55.2    61.8    64.8    67.2    64.9    57.6 

8000 
48.4 

LtlA) 
71  .B 

LfcUMA)    L90     L50     LIO     SIGMA 
71.5     61.5     68.4     75.3      5.4 

ROADWAY   SEGMENT    SOUNO   LEVEL  CONTRIBUTIONS   EXCEEDING   CRITERION   LEVEL   OF        50.0      OB 
ROADWAY      StGMtNT 


1 

1 

tb.2 

2 

1 

65.4 

3 

1 

61.2 

% 

1 

67.0 

RECEIVER 

2 


XRC 
15.2 


YRC 
30.5 


ZRC 
1.5 


E   OF   ROADWAY    fl    C   N   OF  RECEIVER   #1 


OCTAVE   BANO   LEVELS   (A) 
63  125  250  500         1000         2000         4000         6000 

47.2        54.9        61.6        64.7        67.3        65.0        57.9        48.7 


LMAJ      LEUB(A) 
71.6  #1.5 


L90 
60.8 


L50 
68.0 


LIO 
75.2 


SIGMA 
5.6 


ROADWAY   SEGMENT    SOUNO   LEVEL  CONTRIBUTIONS   EXCEEOING   CRITERION   LEVEL    OF        50.0      08 
ROADWAY      SfcGMtNT 


1 

1 

67.1 

2 

1 

64.1 

3 

1 

59.4 

4 

1 

67.7 

Figure  4-3.     OUTPUT  LISTING  FOR  EXAMPLE  PROBLEM  1    (Continued) 
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KECtlVkK 
3 

XRC 

30.5 

YRC          ZKC 
30.5         1.5     E  OF  A8S0RPT1 

63 
46.4 

OCTAVt 

125     250 

54.2    60. V 

BAND  LEVELS  (A) 

500    1000    2000    4000    6000 
64.1    66.8    64.5   57.6    48.3 

LE(A) 
71.0 

LtOBUI    L90 
70.9    60.3 

L50     LIO     SIGH* 
1    67.4     74.5     5.6 

ROADWAY  StfcMtNI  SOUND  LEVEL  CONTRIBUTIONS  EXCEEDING  CRITERION  LEVEL  OF    50.0   OB 
ROADWAY   SbtMtNT 

1  1 
67.0 

2  1 
62.7 

3  1 
57.6 

4  1 
67.1 


RECEIVER             XRC  VRC          7.RC 

4             45.7  30.5         1.5     E  OF  ABSORPTIVE  BERN  £  H  OF  RECEIVER  83 

OCTAVt  BAND  LEVELS  (A) 

63      125  250  500  1000    2000    4000    8000 

45.5    53.2  60.1  63.3  66.2    63.9    57.2    47.5 

Lb (A)   LtOB(A)  L90  L50     LIO     SIGHA 

70.1     70.2  60.0     66.8     73.6     5.3 


RUAUMAT  StGHtWl  SOUND  LEVEL  CONTRIBUTIONS  EXCEEDING  CRITERION  LEVEL  OF    50.0   08 
ROADWAY   SbGMbNT 


1 

1 

66.3 

2 

1 

61.4 

3 

1 

56.2 

4 

1 

66*1 

RECEIVER  XRC         YRC         ZRC 

5  61.0        30.5  1.5     E  OF  ABSORPTIVE  BERN  &  N  OF  RECEIVER  «4 

OCTAVt  BANO  LEVELS  (A) 
63      125     250     500    1000    2000    4000    8000 
44.8    52.5   59.4    62.6    65.7    63.3    56.9    46.8 

LbU)   LtOB(A)    L90      L50      LIO     SIGMA 
69.4     69.7     59.5     66.2     72.9      5.3 

ROADWAY  StGMbNI  SOUNO  LEVEL  CONTRIBUTIONS  EXCEEDING  CRITERION  LEVEL  OF    50.0   OB 
ROADWAY   SbGMbNT 

1  1 
65.8 

2  1 
60.  3 

3  1 
55.1 

%        1 
65.4 

Figure  4-3.     OUTPUT  LISTING  FOR  EXAMPLE  PROBLEM  1    (Continued) 
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IRAHtlt  NUISt  PRE01C1IUN  (INPUI  UNIISt  tNGLISH  .OUTPUT  UNlTSl  METRIC   > 


SAHI-at  PROBLEM  2 
ROAUMAV     1      R1 
NUMBER  OF 
TYPL  1  VEH 

1 
NUMBER  UP 
TYPE  2  VEH 

1 


.95  NURTHBUUNO  M1IH  HEAVY  TRUCKS 
VEH/H         KMPH 


1.35000+03 
VEH/H 


0.04670*01 
KHPH 


7.50000*01         B. 04670*01 
SOURCE    COORD    IN    H 


NUMBER 

1 

2 

RU/UWAY 
NUMBER  UP 
TYPE  1  VEH 

1 
NUMBER  OE 
TYPE  2  VEH 

1 


X 

0.0 

3. 1)4800*03 


1.82880*00 
l.P2BB0*00 


2 
0.0 
0.0 


GRADE 
0 
0 


COMMENTS 

SEGMENT   NORTH  OP   RT.195   INTERSECTION 


K1.95    NUKTHBUUND    MI1H   HEAVY    TRUCKS 


VtH/H 

1.25000*03 
VEH/H 


KMPH 

8.04670*01 
KMPH 


NUMBtK 

1 

2 
RUAUHAV 
NUMBER  UK 
TYPE  1  VEH 

1 
NUMBER    UP 
TYPE    2    VEH 

1 


3.04600*03 
0.0 

3  Kl 


5.00000*01         8.04670*01 
SUURIE    CUURO    IN   M 

V  2  GRAOE 

1.82880*00         0.0  0 

1.82880*00         0.0  0 

.195  NUKIHHESTBOUNl)   HUH  HEAVY    TRUCKS 
VtH/H  KMPH 


COMMENTS 

SEGMENT  SOUTH  OP  RT.I95  INTERSECTION 


NUMBER 

1 

2 

RUtDHAY 
NUMt.tR  UP 
TYPE  1 

1 
NUHbER  OP 
TYPE  2 

1 


-3.04800*03 
0.0 


1.00000*02 
VEH/H 

2.50000*01 

SOURCE    CUORD 

Y 

1.52400*03 

1.82880*00 


f. 24200*01 
KHPH 

7.24200*01 

IN  M 
I 

0.0 
0.0 


GRADE 
0 
0 


COMMENTS 

SEGMENT    INTERSECTING   RT.95   NORTHBOUND 


K1.95    MJU1HBUUN0   HUH   HEAVY    TRUCKS 


VEH 


VEH 


NUMBkR 

1 

2 
BAMtlLR 
NUHbER 

1 

2 
RECEIVER 
NUMBER 

1 

2 

3 

4. 

9 


3.C40CO*O3 
3.C4U00*U3 

1      (A) 

X 

3.04H(;0*01 
3. 04800+03 

X 

0.0 

1.52400*01 

3.04800*01 

4.5/200*01 

6.09600*01 


VtH/H 

5.00000*02 
VtH/M 

5.00000*01 
SUCKCE   CUORD 

Y 
-1.82080+00 
•1.82880+00 
BARRIER  COORD 
Y 
6.09600*00 
6.09600+00 


KMPH 

9.65600+01 
KHPH 

9.65600+01 
IN  M 

Z 
0.0 
0.0 
IN  H 

2 
1.82080+00 
1.8286U+00 


GRADE 
0 

0 


COMMENTS 
SEGMENT  RUNNINS 


NORTH-SOUTH 


ABSORPTIVE  BE9M  E  OF  ROADWAY  #1 


RtCtlVtR  COORO  IN  H 


3.04600+31 
3.  04800+01 
3.04800+01 
3.04800+01 
3.04800*01 


1.52400*00 
1.52400*00 
1. 52400+00 
1.52400+00 
1.52400*00 


LC  COMMENTS 

50.0  N.E.  OP  TREES 

50.0  E  UF  ROAOMAY  II 

50,0  E  OF  ABSORPTIVE 

50.0  E  OF  ABSORPTIVE 

50.0  E  UP  ABSORPTIVE 


C  N  OP  RECElVtM  #1 
BERM  £  N  OF  RECEIVER  #2 
BERN  C  N  OP  RECEIVER  13 
BERN  C  N  OP  RECEIVER  »4 


NRL/NK 


ALPHA 
1  2 


TABLE 
3  4 


0.0  0.0  0.0  0.0 

0.0  0.0  0.0  0.0 

0.0  0.0  0.0  0.0 

0.0  0.0  0.0  0.0 

0.0  0.0  0.0  0.0 


Figure  4-3.     OUTPUT  LISTING  FOR  EXAMPLE  PROBLEM  1    (Continued) 
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SAMPLE  PROBLtM  2 

RfcttlVfcR             XRC          VKC          2RC 

1               0.0         30. •}                        1.5      N.E.  UP 

TREES 

OCIAVfc  BAND  LtVELS  (A) 

63      125     250     500    1000    2000    4000 

eooo 

4K.0    55.7    62.4    65.6    6b. 2    6b. 0    59.0 

50.2 

lt!A»   LIUBUJ    L9U      150      110     SIGMA 

72*5     72*4     62.4     69.2     76.1      ».» 

KOADUAY  SEtMtNl  SOUND  LEVtL  CONTRIBUTIONS  EXCEEDING  CRITERION  LEVEL  OF    50.0   OB 
ROAUMAV   StbfitNT 


1 

1 

66.2 

2 

1 

66.7 

3 

1 

62.6 

* 

1 

68.5 

RECEIVER 
2 


XKC 
15.2 


VRC 
30.5 


2RC 
1.5 


E  UF  ROAOHAV  #1  C  N  OF  RECEIVER  §1 


OCTAVE  BAND  LEVELS  (A) 
63      125     250     500    1000    2000    4000    8000 
47.4    55.2    61. V    65.1    67.7    65.6    58.6    49.7 


LbIA)   LEUB(A)    L90 
72.0     71.9    61.7 


L50 
68.6 


L10 
75.6 


SIGMA 
5.4 


ROAOMAT  SECHtNl  SOUND  LEVEL  CONTRIBUTIONS  EXCEEDING  CRITERION  LEVEL  OF 
ROAONAV   SECMtNl 


50.0  OB 


1 

1 

67.1 

2 

1 

65.0 

3 

1 

60.3 

4 

1 

68.1 

RECEIVER 
3 


XRC 
30.5 


VRC 
30.5 


2RC 
1.5 


E  UF  ABSORPTIVE  BERN  &  N  OF  RECEIVER  #2 


OCTAVt  BAND  LEVELS  (A) 
63      125     250     500    1000    2000    4000    8000 
46.6    54.4    61.1    64.4    67.1    65.0    58.1    49.0 


LLIAJ   LEOB(A) 
71.2     71.3 


L90 
60.9 


L50 
67.9 


L10 
74.8 


SIGMA 
5.4 


ROADWAY  SbGKtNT  SOUND  LEVEL  CONTRIBUTIONS  EXCEEDING  CRITERION  LEVEL  OF 
ROADWAY   SLGMbNT 


50.0   OB 


1 

1 

67.0 

2 

1 

63.4 

3 

1 

5b. 5 

4 

1 

67.3 

Figure  4-3, 


OUTPUT  LISTING  FOR  EXAMPLE  PROBLEM  1    (Continued) 
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RECEIVER  ARC  TKC  2RC 

4  4*.  7        30. 5  1.5     E  OF  HJSORPIIVE  BERN  t   N  OF  RECEIVtR  #3 

OCTAVE  BAND  LEVELS  (A) 
63      125    250     500    1000    2000    4000    8000 

45.6    53.4  60.2    63.5    66.5    64.2    57.6    48.0 

LtTA)   LtUb(A)    L90      L50      L10     SIGMA 
70.3     70.5    60.5     67.2     73.8      5.2 


ROAOMAT  SEGPtNT  SOUND  LEVEL  CONTRIBUTIONS  EXCEE01NC  CRITERION  LEVEL  OF    50.0   OB 
RUAONAT   SEGMENT 


1 

1 

66.3 

2 

1 

62.1 

3 

1 

57.0 

% 

1 

66.4 

RECEIVER             XRC  VRC  ZRC 

5             61.0  30.5  1.5     E  UF  ABSORPTIVE  BERN  C  N  OF  RECEIVER  f4 

OCTAVE  BAND  LEVELS  (A) 

63      125  250  500    1000    2000    4000    8000 

44.9    52.7  59.6  62.8    65.9    63.6    57.2    47.3 

LEIAI   LfcUBU)  L90  L50     L10     SIGMA 

6V.6     69.9  60.0     66.6     73.1  5.1 


RO/tOHAT  SEGMENT  SOUND  LEVEL  CONTRIBUTIONS  EXCEEDING  CRITERION  LEVEL  OF    50*0  OB 

ROAOMAT   SEGMENT 

1  1 
65.8 

2  1 
61.0 

3  1 
55.8 

4  1 
65.7 

Figure  4-3.  OUTPUT  LISTING  FOR  EXAMPLE  PROBLEM  1  (Continued) 


52 


TRAFFIC  NOISE  PRE01CU0N  (INPUT  UNITS:  ENGLISH  .OUTPUT  UNITS*  METRIC   ) 


SAMPLE  PROBLtM  3 
ROADWAY     1      R1 
NUMBER  OF 
TYPE  1  VEH 

J 
NUPBtR  of 
TYPE  *  VEH 

1 


.95N  N1TH  TYPE  *  VEHICLES 
VEH/H         KMPH 


NUMeti: 
1 
z 

ROADWAY 
KUP.UtK  U» 
TYPE  1  VEH 

I 
NUMBER  UF 
TYPE  *  VEH 

1 


X 

0.0 

3.0*000*03 
2  KT 


1.35000+03 
VEH/H 

7.5  0001) +01 
SUURtt'    COORD 
Y 
1.B2BB0+00 
1.B2BBD+00 
.95N  HUH    TYPE 
VtH/H 

1.25000*03 
VtH/H 

5.00000*01 


6.0*670+01 
KMPH 

8.0*670*01 
IN    M 
2 

0.0 

0.0 
*   VEHICLES 

KMPH 

».0«b70*01 

KMPH 

8.0*670*01 


GRADE 
0 
0 


COMMENTS 

SEGMENT    H    OF   RT.195    INTERSECTION 


numtn 

1 

2 

PUAOWAV 
NUMBER  OF 
TYPE  1  VEH 

1 
NUMBER  OF 
TYPE  *  VEH 

1 


3.0*B00*03 
0.0 


SUUKLE    CUUKU    IN    M 
Y  I 

0.0 
0.0 


1 .B2BBU+00 
1.62BBD+00 


RT.195    N.W.    WITH    TYPE    * 


GRADE 
0 
0 
VEHICLES 


COMMENTS 

SEGMENT  S  Or  RT.195  INTERSECTION 


NUPBER 

1 
i 

ROADWAY 
MJMKEK  OF 
TYPE  1  VEH 

1 
NUMBER  UF 
1YPE  * 

1 


-3.0*600*03 
0.0 

*  Rl 


VtH/H 

l.UOOOD*02 
VtH/H 

2.50000*01 
SOURCE    COORD 
Y 
1.52*00+03 
)  .B2BBQ+U0 
.95S   W1IH    TYPE 
VEH/H 

5.00000+02 
VtH/H 


KHPH 


7.2*200*01 
KMPH 

7.2*200+01 
IN    M 
I 

0.0 

0.0 
*    VEHICLES 

KMPH 

9.65600+01 

KMPH 


VEH 


DUMBER 

1 

2 
BAPKUR 
NUMBER 

1 

2 
RECfc  IVtR 
NUMBER 

1 

2 

3 

* 


3.0*B00+03 
3.C*BtO+03 

1       (A) 

X 

3.0*UU0+0l 
3.0*BU0*03 

X 

0.0 

1.52*00+0  1 
3.1/*B00+01 
*.  5/200+01 
6.09600+01 


5.00000+31         9 
SOURCE    COORD    IN 

Y 
-I. 82080*00    0. 
-1.82bBU*UO    0. 
BARRIER  CUORD  IN 
Y 

6.09600*30    1. 

6.UVbOD*30    1. 

RECEIVER  COORO 
V 

3.0*BOO*01 

3.0*800*01 

3.0*800*01 

3.0*600+01 

3.0*600+01 


65600+01 

M 

2 

0 

0 

M 
2 

B2BB0+00 
628B0+00 
IN  M 
I 

52*00+00 
52*00+00 
52*00+00 
52*00+00 
52*00+00 


GRADE 
0 
0 


CONNbN T  S 

SEGMENT    INTERSECTING   RT.95N 


GRADE 
0 
0 


COMMENTS 

SEGMENT    RUNNING    NORTH-SOUTH 


ABSORPTIVE    BERM    E    OF    ROADWAY   ffl 


LC  COMMENTS 

50.0  N.E.    OF    TREES 

50.0  E    OF    ROADWAY    #1    C    N    OF  RECEIVER    »i 

50.0  E    OF    ABSORPTIVE    BERM    C  N    OF    RECEIVER    12 

50.0  E    OF    ABSORPTIVE   BERM    C  N   OF   RECEIVER   »3 

50*0  fc    OF   ABSORPTIVE  BERM    &  N  OF   RECEIVER   •* 


NRC/NR 


A   L 

P   H    A 

T 

A 

8   L   E 

1 

2 

3 

* 

0.0 

O.U 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

Figure  4-3.     OUTPUT  LISTING  FOR  EXAMPLE  PROBLEM  1    (Continued) 
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SAKKLt    PROBLbN    3 
KK-t  JVER 
1 

XRC 
V.O 

VRC                        *RC 
30. 5                         1,5              N.E.    OF 

TREES 

63 
•>3.6 

12b 
52.5 

OCTAVE   BAND   LEVELS    (A) 

251)           500         1000         2000         ->000 
57.3         61.9         6-W         63.6         55.8 

6000 
47.6 

mo 

68.9 

LbUBIA) 
68.9 

L9U              L50              LID           SIGMA 
62.6           67.3            72.0              3.7 

fcDAUWAV    SbGMbNI    SOUND   LEVEL   CONTRIBUTIONS   EXCEEDING   CRITERION   LEVEL    OF         50.0      OB 

KQAUWAV      StWItNl 


1 

1 

62.8 

2 

1 

64.1 

3 

1 

57. V 

1 

1 

*>*•* 

RECEIVER 

2 

XRC 
15.2 

VRC                        ZRC 
30.5                       1.5             E   01-   ROADNAV 

63 
Si. 1 

OCTAVE 

125           250 

51.9        56. U 

BANO    LEVELS    (A) 

500         1000         2000        4000         8000 
61.3        63.6        63.0        55.1        46.9 

LbtA) 
68. 3 

LbUBIA)         L90              L50              LIO           SiGHA 
68.2           61.8           66.6            71.5              3.8 

ROAOWAY   SEGMENT    SOUND   LEVEL  CONTRIBUTIONS   EXCEEDING   CRITERION   LEVEL   OF        50.0      OB 
ROAOHAV      SEGMENT 


1 

1 

63.5 

2 

1 

62*5 

3 

1 

55.6 

4 

1 

63.7 

RECEIVER  XRC  VRC  ZRC 

3  30.5  30.5  1.5  E   OF   ABSORPTIVE   BERN   C   N   OF  »cCE1VER  #2 

OCTAVE   BAND   LEVELS    (A) 

63  125  250  500  1000        2000        4000        8000 

42.2        51.0  55.8        60.2  62.4        61.7        53.8        45.  * 

LklA)      LbOB(A)         L90  L50  LIO  SIGMA 

67.1  67. 0  60.7  65.5  70.3  3.8 


ROAOWAT   SEGMfcNl    SUUND    LEVEL   CONTRIBUTIONS   EXCEEDING    CRITERION   LEVEL    OF         50.0      08 
ROAOMAV       SEGMENT 


1 

1 

62.8 

2 

1 

6C.9 

3 

1 

53.7 

4 

1 

62.6 

Figure  4-3.     OUTPUT  LISTING  FOR  EXAMPLE  PROBLEM  1    (Continued) 
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KttfclVfcK  XKC  VRt  IKL 

*  45.7        30.5         1.5     t  OF  ABSORPTIVE  BERM  C  N  Of  RECEIVER  §9 

OCIAVb  BAND  LEVELS  (A) 
63      125     250     500    1000    2000    4000    8000 
41.1    49. B    54.5    58.8    60.7    59.8    51.7    43.1 

LtIA)   LEOB(A)    LVO      L50      L10     SIGMA 
65.7    65.*    59.9     64.3     68. 7     3.* 

ROAUKAT  SfctntNl  SUIMO  LEVEL  CONTRIBUTIONS  EXCEEDING  CK1IER10N  LEVEL  OF    50.0   OB 

1  1 
61.1 

2  1 
59.5 

3  1 
52.2 

«        1 
61.2 


RECEIVER  XKC  VRC  2RC 

5  61.0        30.5         1.5     E  OF  ABSORPTIVE  BERM  I  N  OF  RECEIVER  »4 

OCTAVE  BAND  LEVELS  IA) 

63      125  250     500  1000    2000    4000    BOOO 

40.3    4V.0  53.6    57.7  59.3    58.1    49.8    40.6 

ttlAI   LEUB(A)  L90      L50      L10     SIGMA 

64.5    64.0  59.5     63.4     67.3     3.1 


ROADWAY  SEbMtNl  SOUND  LEVEL  CONIRIBUf IONS  EXCEEDING  CRITERION  LEVEL  OF    50.0  OB 
RQADWAV   StLMtNI 


1 

1 

59.1 

i 

1 

*b.4 

3 

1 

51.1 

* 

1 

60.1 

Figure  4-3.     OUTPUT  LISTING  FOR  EXAMPLE  PROBLEM  1    (Concluded) 
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Since  the  Level  2  model  does  not  explicitly  define  a  ground 
plane  and/or  a  horizontal  surface,  it  is  necessary  to  specify  excess  distance 
attenuation  as  "alpha"  for  each  roadway  relative  to  each  receiver.  A  value 
for  "alpha"  for  any  roadway-receiver  must  be  greater  than  -1.0. 

The  relation  between  "alpha",  a,  and  a  distance  attenuation 
rate  in  terms  of  "dB  per  distance  doubling",  n ,  is   (3) 

a  =  -(1-  n/101og(2))  =  -(1-  n/3) 
or 

n  =  3(a+l),  dB  per  Distance  Doubling  (dB/DD) 

Hence,  the  following  relations  should  be  remembered: 


• 

a  =  -1.0 

,     n 

• 

a   =   -0.5. 

)    n 

• 

a   =     0.0. 

.     n 

• 

a   =     0.5; 

,     n 

t 

a    =      1.0. 

,    n 

=  0  dB/DD  (Zero  Distance  Attenuation) 

=1.5  dB/DD 

=  3.0  dB/DD  (Classical  Line  Source) 

=  4.5  dB/DD 

=  6.0  dB/DD     (Classical   Point  Source) 


Since  the  Level  2  program  utilizes  numerical  integrations  over 
the  roadway  relative  to  each  receiver,  any  value  greater  than  -1  may  be 
specified  for  "alpha". 

The  "Alpha  Input"  data  block  is  not  mandatory.  If  the  data  block 
is    not   specified  the   program  considers   all    values   of  alpha  to   be   zero. 

If  the  user  desires  to  specify  non-zero  values  for  "alpha"  he  must 
elect  one  of  the  input  options  as  follows: 


•     Option  1,  Default:     Do  not  define  "alpha"  for  a 
roadway-receiver  combination.     This  results  in 
alpha  being  specified  zero  for  all   such  roadway- 
receiver  pairs. 

t     Option  2,  Receiver  Specification:     A  single  value  of 
alpha  may  be  specified  that  applies  to  all   roadways 
relative  to  a  defined  set  of  receivers. 
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•  Option  3,  Roadway  Specification:  A  single  value  of  alpha  may  be 
specified  that  applies  to  a  single  roadway  relative  to  a  defined 
set  of  receivers. 

The  specific  data  format  for  "Alpha  Input"  is  presented  in  Section 
3.7.  A  value  of  "alpha"  specified  for  a  roadway  applies  to  all  segments  of 
that  roadway  relative  to  the  receiver. 

As  an  example  of  formulating  "Alpha  Input"  suppose  that  the 
problem  comprises  six  roadways  and  five  receivers.  Hence,  30  values  of 
"alpha"  are  required.  From  the  review  of  receiver  locations  relative 
to  each  roadway  the  following  values  of  "alpha"  are  judged  appropriate: 

Roadway  Number 


Receiver 

Number 

1 

2 

3 

4 

5 

6 

1 

0.0 

0.0 

0.5 

0.75 

0.0 

0.0 

2 

0.25 

0.0 

0.5 

0.50 

0.0 

0.0 

3 

0.25 

0.0 

0.5 

0.50 

0.0 

0.0 

4 

0.50 

0.0 

0.5 

0.50 

0.0 

0.0 

5 

0.50 

0.0 

0.5 

0.50 

0.0 

0.0 

From  this  tabulation,  it  is  seen  that  four  values  of  alpha  are 
required  to  specify  the  problem.  It  is  seen  that  no  single  value  of  alpha 
applies  to  all  roadways  for  any  receiver.  Option  2  above  is  not  useful. 
Since  "alpha"  for  roadways  2,  5,  and  6  for  all  receivers  and  for  roadway 
1-receiver  1  is  zero,  the  user  may  elect  either  the  default  option  or  the 
roadway  specification  option.  The  latter  option  is,  of  course,  the  most 
positive  approach. 

Figure  4-4  presents  the  "Alpha  Input"  data  block  using  a  combina- 
tion of  default  options  and  roadway  specifications.  Figure  4-5  presents  the 
"Alpha  Input"  data  block  using  only  roadway  specifications. 

As  this  example  indicates,  it  is  most  efficient  to  determine 
the  "Alpha  Table"  first  and  then  formulate  the  input  data. 
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4.6      Example  Problem  2 

This  example  problem  illustrates  the  use  of  the  grade  correction 
option  included  in  the  FHWA  Level  2  computer  program  and  the  variation  of 
receiver  criterion  levels.  The  problem  is  an  overpass  at  the  intersection 
of  two  roadways.  The  site  configuration  is  illustrated  in  Figure  4-6. 
Route  101  runs  north-south  and  comprises  two  lanes  of  undivided  roadway. 
Route  101  is  level.  Route  303  runs  east-west  and  comprises  two  lanes. 
The  overpass  on  Route  303  is  15  feet  (4.6  metres)  high  with  a  5%  grade  at 
each  approach.  The  approaches  to  the  overpass  are  earthen  embankments. 
Otherwise  the  site  is  flat.  The  travel  speed  on  Route  101  is  55  mph  and 
on  Route  303  is  40  mph.  Each  lane  carries  an  identical  traffic  flow. 

To  use  the  grade  correction,  one  must  divide  the  roadways  into  lane 
groups  with  the  same  travel  direction.  For  this  example,  a  single  equvalent 
lane  may  be  used  to  simulate  the  traffic  flow  on  Route  101,  but  both  lanes 
must  be  described  for  Route  303  since  upgrade  lane  segments  are  required  at 
each  approach  to  the  overpass. 

The  receivers  are  located  symmetrically  about  the  intersection. 
With  no  grade  correction,  each  receiver  would  receive  identical  sound  levels. 
However,  introducing  the  grade  correction  alters  the  noise  emissions  such 
that  Receivers  No.  1  and  No.  3  would  be  expected  to  receive  identical  sound 
levels  and  Receivers  No.  2  and  No.  4  would  be  expected  to  receive  identical 
sound  levels.  The  earthen  embankments  are  simulated  using  four  barriers  with 
the  top  edges  paralleling  the  grade  on  Route  303. 

To  indicate  the  interrelationship  between  the  specified  criterion 
level  and  the  tabulation  of  sound  level  contributions  at  such  receiver.  It 
is  decided  to  simulate  each  lane  as  a  roadway  and  to  divide  the  lane  segments 
such  that  shielded  segments  of  Route  101  are  distinctly  specified.  Ground 
level  is  taken  as  the  reference  (Z=0)  elevation. 

Figure  4-7  illustrates  the  roadway  coordinates  for  each  defined 
segment.  Roadway  No.  1  is  the  north  bound  lane  of  Route  101.  Roadway  No.  2 
is  the  south-bound  lane  of  Route  101.  Each  of  these  roadways  are  divided 
into  two  segments  with  the  common  point  at  the  intersection  of  the  east-west 
centerline  of  Route  303. 
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Route  303  is  divided  into  two  roadways  each  comprising  five 
segments.  Roadway  No.  3  is  the  west  bound  segment  of  Route  303.  Roadway 
No.  4  is  the  east  bound  segment  of  Route  303.  The  reader  should  realize 
that  the  five  segments  are  required  to  simulate  the  roadway  so  that  the 
upgrade  segments  may  be  distinguished. 

For  this  example  problem,  it  is  assumed  that  each  roadway-receiv- 
er configuration  may  be  simulated  using  alpha  =  0.5.  If  the  user  desired 
to  set  a=0  for  the  elevated  segments  of  Route  303,  it  would  be  necessary 
to  define  these  segments  as  roadways  (See  Sections  3.7  and  4.5). 

The  annotated  input  data  for  the  sample  problem  is  illustrated 
in  Figure  4-8.  From  the  input  data,  the  reader  sees  that  input  is  in 
English  units  and  output  is  in  Metric  units. 

The  traffic  noise  predictions  conducted  by  the  FHWA  Level  2 
program  are  presented  in  Figure  4-9.  The  program  prints  the  annotated 
input  data  as  described  in  Section  4.4.  Next,  the  receiver  sound  levels 
are   printed. 

For  receiver  1,  the  hourly  equivalent  sound  level  is  estimated 
to  be  64.7  dBA.  The  criterion  level  for  Receiver  1  was  specified  as  55 
dB.  As  discussed  in  Section  4.4,  all  roadway  segments  contributing  more 
than  50  dB  at  the  receiver  will  be  printed.  It  is  noted  in  the  predicted 
results  for  Receiver  No.  1,  the  upgrade  segment  on  Route  303  contributes 
a  slightly  greater  sound  level  at  the  receiver  than  the  entire  northbound 
lane  of  Route  101  even  though  the  traffic  speed  on  Route  101  is  15  mph 
greater  than  that  on  Route  303. 

The  reader  may  verify  that  the  predicted  sound  levels  for 
Receivers  1  and  3  and  for  Receivers  2  and  4  are  identical.  In  the  case 
of  Receiver  4,  the  criterion  level  was  specified  as  70  dB.  Since  no 
roadway  segments  contributed  more  than  65  dB  at  Receiver  4  (see  the 
output  for  Receiver  2  and  recognize  the  symmetry  of  the  example  problem) 
a  message  is  printed  that  no  roadway  segments  exceeded  criterion  level  of 
70  dB.  The  reader  should  recognize  that  the  internal  limit  is  65  dB  and 
the  message  is  printed  to  clearly  state  that  the  criterion  limit  was  not 
exceeded. 
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TBAFFIC    NOISE    PHEDICTION     (INPUT    UNITS:    ENGLISH    .OUTPUT    UNITS:    BETHIC      ) 
BIAKPLE   ILLUSTBATING    GBADE    ADJUSTMENTS   AND    TITLE    OPTIONS 


FECGEAtl    INITIALIZATION    PABAMETEES 


1.524C0D+OO 

9.CC000D+00 

0.0 

2.<*3840D+C0 

7.01040D-01 

EOACWAI  1 

NOHBIB   OF 

TIPE    1    VEH 
1 

NUHBEB    CF 

TIPE    2    VEH 
1 

NUHBEB    OF 

ITPE    3 
1 


HEIGHT 

CALCULA 

SOUBCE 

SOUBCE 

SOUBCE 


VEH 


NUHBEB 

1 

2 

3 
BOAChAI 
BUHBEB  OF 
TIPE  1  VEH 

1 
BUBEER  OF 
IIPE  2  VEH 

1 
NUHBEB  OF 
IIPE  3  VEH 

1 


4.5720D+00 

4.5720D+00 
4.5720D+00 
2 


HOOTE  101  NOBTHBO 
VEH/H 

2.  51COD*02 
VEH/H 

2.60C0D+01 
VEH/H 

S.OOCOD+00 
SOUBCE   COOBD 
I 
3.04  60D+02 
0.0 
-3.04  60D+02 
BOUTE    101    SOUTHBO 
VEH/H 


BUHBEB 
1 

2 

3 

boaesai 
huheeb  of 

IIPE  1  VEH 
1 

SDHEEB  OF 
TIPE  2 

1 
HDBBEB  OF 
TIPE  3 

1 


-4.5720D+00 
-4.5720D*00 
-4. 57200*00 
3 


VEH 


VEH 


BUHBEB 

1 

2 

3 

<t 

5 

6 
SOADKAI 
BUBBEB  OF 


3.0480D+02 

1.0516D+02 

1.3716D+01 

-1.3716D*01 

-1.0516D+02 

-3.04800*02 

4 


2.5100D+02 
VEH/H 

2.6O0OD+O1 
VEH/H 

9.00C0D+00 
SCUBCE   COOBD 
I 
3.0480D+02 
0.0 
-3.04e0D*02 
BOUTE    30J    UESTBOU 
VEH/H 

2.5100D+02 
VEH/H 

2.60C0D*-O1 
VEH/H 

S.00C0D+00 
SCUBCE   COORD 
Y 
4.5720D+00 
4.5720D+00 
4.5720D+00 
4.5720D*00 
4.5720D+00 
4.5720D*00 
BOUTE    303    EASTBOU 
VEH/H 


ADUS1BEN 
TE  9  OCT 
HEIGHT  F 
HEIGHT  F 
HEIGHT  F 
UND 
KHPH 

8.8514D 
KMPH 

8.8S14D 
KBPH 

8.8S14D 
IN    B 
Z 

0.0 

0.0 

0.0 
UND 

KHPH 

8. 8S14D 
KBPH 

8. 8514D 
KHFB 

8.8514D 
IN    H 
Z 

0.0 

0.0 

0.0 
ND 

KMPH 

6.4374D 
KBPH 

6.4374D 
KBPH 

6.4374D 
IN    M 
Z 

0.0 

0.0 

4.5720D 

4.5720D 

0.0 

0.0 
ND 

KBPH 


T    FOB    BECEIVEBS 
A\l    BANDS 
CB    AUTOMOBILES 
CE    HEAVI   TBUCKS 
OB    HEDIUfl   TBUCKS 


♦  01 


♦  01 


♦  01 


♦  01 

♦  01 

♦  01 


♦  01 

♦  01 

♦  01 


♦  00 

♦  00 


GBADE 
0 
0 
0 


GBADE 
0 
0 
0 


GBADE 
0 
1 
0 
0 
0 
0 


COBBENTS 

SEGMENT    NOBTH   OF   BOUTE   303 

SEGHENT   SOUTH   OF   BOUTE    303 


COBBENTS 

SEGMENT  NOBTH  OF  BOUTE  303 

SEGHENT  SOUTH  07  BOUTE  303 


COBBENTS 

LEVEL  SEGBENT  EAST  OF  BOUTE  101 
SEGHENT  WITH  5  PEBCENT  UPGBADE 
LEVEL  SEGMENT  OVEB  BOUTE  101 
SEGHENT  HITH  5  PEBCENT  DOHNGBADE 
LEVEL  SEGHENT  VEST  OF  BOUTE  101 


Figure  4-9.  OUTPUT  LISTING  FOR  EXAMPLE  PROBLEM  2 
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TYPE  1  VEH 

1 
NUBBEE  OF 
11PE  2  VEH 

1 
HOBBEB  OF 
TYPE  3  VEH 

1 


-J. 

-1. 

-1. 

1. 

1. 
3. 


HUBBEB 

1 

2 

3 

4 

5 

6 

BAFBIEB 
HOBBEB 

1  1. 

2  1. 
BABB1EB 
HOBBEB 

1  -1. 

2  -1. 
BARRIER 
HOBBEB 

1  1. 

2  1. 
BAfcBIEB 
HOBBEB 

1  -1. 

2  -1. 
BECEIVEB 
IUBBEB 

1 
2 
3 
4 


3. 

3. 
-3. 
-3. 


C480D+02 
0516D*02 
3716D*01 
3716D+01 
0516D+02 
04800+02 

1  (A) 
X 

051bD*02 
37160*01 

2  (A) 
X 

3716D+01 
0516D+02 

3  (A) 
X 

0516D+02 
3716D+01 

4  (A) 
X 

3716D+01 
0516D*02 


C480D+01 
C  i*80D*01 
0480D*01 
04800*01 


2.5100D+02 
VEU/H 

2.60C0D+01 
VEU/H 


6.4374D+C1 
KHPH 

6.4374D*01 
KBPH 


9.00C0D*00         6 
SCOBCE   COOBD    IB 

Y 
-4.5720D*00 
-4.5720D*00 
-4.5720D*00 
-4.5720D+00 
-4.5720D+00 
-4.57200*00 
BABBIEB    COOBD 
Y 
6.0960D*00 
6-0960D+00 
BABUlth    COOBD 
Y 
6. 0960D*00 
6.09600*00 
BARBIEB   COOBD 

Y 
-6.0960D+00 
-6.0960D+00 
BABBIEfc    COOBD 

Y 
-6.09600*00 
-6.0960D*00 
EECEIVEB    COOBD 

Y 

3.04  80D+01 

-3.04  60D+01 

-3.04  80D+01 

3.  04  60D+01 


4374D+01 

H 

Z 
.0 
.0 

.57200*00 
.57200*00 
.0 
.0 
N    B 

Z 
.0 

5720D*00 
N    B 

Z 
.5720D+00 
.6 
a   B 

z 

.0 

•  5720D*00 

n  a 
z 

-5720D400 
.0 

III    B 

Z 
.52400*00 
.5240D*00 
.52400*00 
.52400*00 


GBAOE 
0 
1 
0 
0 
0 
0 


COBMENTS 

LEVEL    SEGMENT    WEST    OF    BOOTE    101 
SEGMENT    WITH    5    PERCENT    OPGBADE 
LEVEL    SEGMENT   OVER    ROUTE    101 
SEGHEN1    WITH   5   PERCENT   DOWNGRADE 
LEVEL    SEGMENT    EAST    OF   BOOTE    101 


BABP   ON    N. E.    SIDE  OF   BOOTE   303 


BAflP   ON    N. H.    SIDE  OF    BOOTE   303 


BABP   ON    S. E.    SIDE  OF   BOOTE    303 


BABP   ON    S. I.    SIDE  OF   BOOTE    303 


LC  COBMENTS 

55.0  BECEIVEB  NO. 1  N.E.  OF   OVERPASS 

60.0  RECEIVER  NO. 2  S.E.  OF   OVERPASS 

65.0  RECEIVER  NO. 3  S.B.  OF  OVERPASS 

70.0  BECEIVEB  N0.4  N.B.  0?   OVEBPASS 


ALPHA 


TABLE 


NEC/KB 

1 

2 

3 

4 

R 

1 

0.50 

0.50 

0.50 

0-50 

2 

0.50 

0.50 

0.50 

0.50 

3 

0.50 

0.50 

0.50 

0.50 

4 

0.50 

0.50 

0.50 

0.50 

EIABPLE   ILLUSTRATING    GEADE    ADJUSTMENTS    AND    TITLE    OPTIONS 
BECEIVEB  XKC  YRC  ZRC 

1  30.5  30.5  1.5  BECEIVEB    NO.  1    N.E.    OF   OVEBPASS 

OCIAVE    BAND    LEVELS     (A) 
63  125  250  500        1000        2000        4000        8C00 

46.8        53.6        60.1         62.1        64.2        61.9        55.0        46.0 


LE(A)       LEOB(A) 
69.7  68.7 


L90 
56.6 


L50 
64.9 


L10 
73.1 


SIGMA 
6.5 


BO ADM  AY    SEGBENT   SOUND    LEVEL  CONTRIBUTIONS    EXCEEDING  CBITBBION    LEVEL  OF 
BOACBAY      SEGMENT 


55.0      DB 


1 

1 

2 

6  4.0 

52.1 

2 

1 

2 

61.8 

53.3 

3 

2 

3 

4 

64.4 

54.4 

54.2 

4 

2 

3 

4 

52.7 

53.1 

59.7 

Figure  4-9.  OUTPUT  LISTING  FOR  EXAMPLE  PROBLEM  2  (Continued) 
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BECE1VER 

2 


XRC 
30.5 


YliC 
-30-5 


2UC 
1-5 


RECEIVER    NC-2    S.  E.    OP    (. /EBPASS 


OCTAVE    BAND    LEVELS     (A) 
t3  125  250  500         1000        2000        4000        8C00 

46.8         53.6        60.1         b2.1         64.2        61.6        55.0        46.0 

Lt(A)       LEOB(A)  L90  L50  L10  SIGMA 

69.5  68.7  57.2  65.1  73.0  6.2 


BOADWAT    SEGnSNT    SOUND    LEVEL   CONT hi BUTICNS    EXCEEDING  CBITEBION    LEVEL  OF         60.0      DB 
EOAESAX      SEGMENT 


1 

2 

64.0 

2 

2 

61. a 

3 

2 

62.4 

4 

2            4 

56.9   61.7 

HECtlVEB 
3 


XBC 
-30.5 


Y.BC 
-30.5 


ZBC 
1.5 


BECEIVEE    NC.3    S.K.    OF    OVBBPASS 


OCTAVE    BAND    LEVELS     (A) 
63  125  250  500         1000        2000        4000        8C00 

46.3        53.6        60.1         62.1         64.2        61.9        55.0        4t.0 

LE(A)       LEOE(A)  L90  L50  L10  SIGHA 

6J.7  68.7  56-6  64.9  73.1  6.5 


BCACKAX   SEGHSNT    SOOND    LEVEL   CONTRIBUTIONS    EXCEEDING   CBITEBION    LEVEL  OF         65.0      DB 
BCACfcAI      SEG1ENT 


1 

2 

61.8 

2 

2 

64.0 

4 

2 

64.4 

HECE1VEB 
4 


XHC 
•30.5 


XRC 

30.5 


ZBC 
1.5 


BECEIVEB    NC.4    N.U.    OF    OVEBPASS 


OCTAVE    BAND    LEVELS     (A) 
63  125  250  500         10C0        2000         4000        8C00 

46. B         53.6        60.1         62.1         64.2        61.9         55.0        46.0 

Lh(A)       LEOE(A)  L90  L50  L10  SIGMA 

69.5  66.7  57.2  65-1  73.0  6.2 


NO    ECADUAY    SEGMENTS    EXCEED   CBITEBION    LEVEL    CF         70.0      LB 


Figure  4-9.     OUTPUT  LISTING  FOR  EXAMPLE  PROBLEM  2  (Concluded) 
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APPENDIX  A 
BASIC  FORMULATION  OF  THE  COMPUTERIZED  PREDICTION  MODEL 

This  appendix  presents  the  basic  formulation  for  the  traffic 
noise  prediction  scheme  utilized  by  the  computer  program.  The  first 
subsection  describes  the  theory  supporting  the  prediciton  of  the  overall 
A-weighted  energy  mean  sound  level  of  the  traffic  flow  on  a  finite 
roadway  segment.  Distance  attentuation  is  assumed  to  be  in  excess  of 
classical  cylindrical  spreading  from  a  line  source. 

The  second  subsection  presents  the  coded  formulation  used  by 
the  program. 

Since  the  FHWA  Level  2  prediction  model  is  an  evolutionary 
development  of  the  TSC  MOD-04  program,  the  notation  used  in  this  appen- 
dix is  consistent  with  the  latter  model  (1).  The  use  of  the  excess 
attenuation  parameter  y   in  this  formulation  is  identical  to  the  excess 
attenuation  parameter  a  of  the  FHWA  Level  1  prediction  model  (2). 

A.l      Energy  Mean  Sound  Level 

The  geometric  relationship  between  the  roadway  segment  and 
the  receiver  is  illustrated  in  Figure  A-l.  Considering  the  traffic 
flow  to  be  represented  by  a  uniform  source  strength,  x,  distributed 
along  the  roadway  segment,  the  acoustic  intensity  ratio  at  the  receiver 
is  expressed  as: 

I/I0  =  xl0Uo/10  (D0/Dr+2  10-£/1°  f"2  ^-      (A-l) 

JX1      [l+(x/D)V+2 

where    L  is  the  reference  sound  level  at  a  distance  D0  from  the 
roadway  segment 

D  is  the  distance  from  the  roadway  segment  to  the  "receiver 

A  is  the  source  concentration  (See  Equation  (A-6)) 

e  is  an  excess  attenuation  parameter  independent  of  distance 

y  is  an  excess  attenuation  parameter  proportional  to 
distance  from  the  source 
2 
*o  =  <Pref>/'pc'  t'ie  reference  intensity. 
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ROAD  SEGMENT 


xR  RECEIVER 
(a)     Basic  Roadway /Receiver  Geometry 


subsegment  1 


BARRIER  SEGMENT 


GROUND  STRIP     /j 


xR   RECEIVER 
(b)  Subdivision  of  Roadway  Segments  into  Elements 


•  Absorptive  Ground  StripN.     \v    *- 
Attenuation  Ignored.  \?\. 

t  Segment  (x'\xi')  Analyzed      ^ 
for  Diffraction:  Maximum fl 
of  all   the  subseqment  elements 


xR  RECEIVER 


(c)  Computer  View  of  Roadway /Receiver  Geometry 

FIGURE  A-l.  BASIC  SOURCE/RECEIVER  GEOMETRY 
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The  relationship  indicated  in  Equation  CA-1)  assumes  that  all  sources 
on  the  roadway  segment  are  identical  nondirectional  sources.  Distance 
attentuation  is  assumed  to  follow  an  attenuation  rate  in  excess  of 
inverse  square  spreading  as  indicated  by  the  parameter  y.  The  excess 
attenuation  parameter,  e,  is  included  to  formulate  the  problem  in  a 
fashion  consistent  with  the  excess  attenuation  coded  in  the  program 
(i.e.,  trees,  high  shrubbery,  atmospheric  absorption,  and  barrier 
diffraction). 

The  integration  indicated  in  Equation  (A-l)  may  be  simplified 
by  changing  variables  as  follows: 

x  =  D  tan  Cot)  (A-2) 

The  result  obtained  is: 

I/I0  =  XD0  lo^Lo^)/10  (D()/D)rKL  ^  ^  ai)  CA„3) 

/•a2 
where    ^.(c^.  a^   =/COsY(a)da 

al 
It  will  be  noted  that  the  function  ^y  (a2,  ai)  is  identical  to  the 
"finite  length  roadway  adjustment  factor"  used  in  the  FHWA  Level  1 
formulation  (2). 

From  Equation  (A-3)  the  energy  mean  sound  level  is 

Le  =  10  log  (I/Io)  =  L0  -  e   +  10  log  (xD0(D0/D)  I*)     (A-4) 

where     I*  =  (D0/D)Y  Vy  (a2,  aj 

One  of  the  prediction  tasks  of  the  FHWA  Level  2  program  is 
to  estimate  the  percentile  sound  levels  generated  by  the  traffic  flow. 
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To  accomplish  this,  Kurze's  traffic  flow  noise  theory  is  used  C3), 
Kurze's  theory  assumes  a  uniform  distribution  of  identical  point 
sources  along  the  finite  roadway  segment. 

To  estimate  the  percentile  sound  levels,  it  is  required  to 
calculate  statistical  moments  (called  cumulants)  for  constant  speed 
road  traffic;  By  normalizing  the  acoustic  intensity  at  the  receiver 
by  its  energy  mean  value  (given  by  Equation  (A-4))  and  performing  some 
algebra  (See  Reference  3)  one  obtains  the  following  expression  for  the 
nth  order  cumulant: 

Kn  "   xV-^va,,)]"  (A-5) 

where 

N  is  the  number  of  vehicles  occupying  the  roadway  segment 

*"    (a?,   a,)    =/2[C0S    [*)]    nCV+2K2da 
>        t-        '         a-i 

x,D,y  are  defined  in  Equation  (A-l) 

^y  (^2'  al)  1S  defined  in  Equation  (A-3) 

Xj,  x>>,  a,,  a2  are  defined  in  Figure  A-l 

By  normalizing  the  acoustic  intensity  at  the  receiver  by   its  energy  mean 
sound  level,  the  first  order  cumulant  must  be  indenttcally  equal  to  unity. 
From  this  requirement  and  the  assumption  of  a  uniform  distribution  of 
noise  sources  along  the  roadway  segment,  the  source  concentration,  X, 
is  defined  as 

x  e  N/Cx~2-Xi)  =  Q/V,  vehicles  per  unit  length        (A^-6) 

where    Q  is  the  traffic  flow  rate 
V  is  the  traffic  speed 
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Using  a  first  order  approximation,  the  standard  deviation  of  the  fluctua- 
ting sound  level  at  the  receiver  is  estimated  by  (3) 


aL  =  (10/ln(10))  \/ln(l+<2)  (A-7) 

2 

where  v*a2?  al ' 


Ko  - 


AD[Ty(a2,  ai)]2 


is  the  second  order  cumul.ant 


The  realtionship  of  Equation  (A-7)  is  exact  for  a  Gaussian  or  normal 
distribution  of  sound  levels. 

By  setting  the  excess  distance  attenuation  factor,  y>  to  zero 
the  model  described  by  the  TSC  MOD-04  code  is  obtained. 

The  results  of  this  section  apply  to  a  single  vehicle  type 
operating  on  a  finite  roadway  segment. 

A. 2      Coded  Formulation 

Since  the  FHWA  Level  2  program  is  an  evolutionary  development 
of  the  TSC-MOD-04  prediction  model,  it  is  necessary  to  formulate  the 
theory  of  Section  A.l  in  a  consistent  format.  The  only  coding  changes 
required  for  this  transformation  are  related  to  the  numerical  integra- 
tion of  the  functions  y  (a2,  a-.)  and  $2(a2,a-,).  These  changes- are 


;  ana  i 
confined  to  SUBROUTINE  GEOMETRY. 


Using  a  subscript  Mi"  to  denote  a  roadway  segment  and  a 
subscript  "j"  to  denote  a  traffic  flow  condition  (vehicle  type  and 
speed  condition)  on  the  roadway,  the  energy  mean  sound  level  at  the 
receiver  is  formatted  as 

Le  =  100  +  10  log  CI*)  (A-8) 
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The  acoustic  intensity  at  the  receiver  is* 

e^(a1j/4.35)2}    (A-9) 
and  the  second  moment  of  the  acoustic  intensity  is 


:2  =  k2*/(I*)2  (A-10) 


Nip  _  ? 

2*  ■  l|((V?l)ZTlV1(?21.«1j)/pMl  X..102(Loij-66-ij)/^(2a1j/4.35)    )  |   (A.n) 


NR  NQS 

l|l(Do/Di)2Yi*¥1(«2i'ali)/Dil|l 

( 

°2i?   ali)  =| 


c*2i  Y1 

where  ^  .(a,.,   a,J  -f        [cos  (a)]      da 


..(o2-|»    aii)   =j  [cos(a)] 

ai  ,■ 


aii 


ftl  2(Y.+1) 

da 


li 

These  results  assume  that  the  distribution  of  sound  levels  from  a 
vehicle  condition  "j"  (i.e.,  vehicle  tyoe  and  speed)  are  normally 
distributed.  The  above  results  apply  both  to  the  overall  A-weighted 
sound  level  and  the  octave  band  sound  level  predictions  conducted  by 
the  computer  program.  As  indicated  in  Equations  (A-9)  and  (A-10),  the 
attenuation  parameter,  yj>  applies  for  each  roadway-receiver  combina- 
tion. The  integrations  indicated  following  Equation  (A-ll)  are 
calculated  numerically  by  the  program. 

If  the  attenuation  parameter,  y-j»  is  set  to  zero  in  the  above 
results,  the  formulation  is  identical  to  the  theory  of  the  TSC  MOD-04 
prediction  model . 

*N0TE:  For  D  =  50  feet;  D2  =  (50)2  =  (100/2)2  =  104-10"6/1°  =  1 01 °- 1 0"66/1 ° 
o  o 

(ie.,  Equations  (A-9)  and  (A-10)  are  for  length  expressed  in  feet) 

A-6 


The  estimation  of  percentile  sound  levels  from  the  roadway 
is  based  upon  the  assumption  that  the  distribution  of  sound  level 
during  the  hour  is  Gaussian  or  Normal.  Based  upon  the  estimate  of  the 
overall  A-weighted  sound  level,  L  (Equation  (A-8)),  and  the  standard 
deviation,  a,    (Equation  (A-7)),  the  percentile  sound  levels  are: 

L50  =  Le  "  °l/8J       >dB  (A"12j 

L10  =  L50  +  1,25aL  'dB  (A_13) 

L90  =  L50  "  L25aL  'dB'  (A_14j 

A. 3    Spectral  Calculations 

The  theory  presented  in  Sections  A.l  and  A. 2  represent  the  basic 
formulation  of  the  traffic  noise  prediction  model  used  by  the  FHWA 
Level  2  program.  This  theory  applies  to  both  the  overall  level  and 
the  octave  band  level  predictions.  The  program  logic  specifies  either 
the  overall  level  or  an  octave  band  level  using  an  integer  index,  IF. 
The  index  IF  is  assigned  values  from  IF  =  1  to  IF  =  NF.  The  parameter 
NF  is  an  upper  limit  on  the  number  of  frequency  bands  to  be  calculated. 
The  maximum  value  for  NF  is  nine.   (See  Section  3.2  and  Subroutine  INPUT.) 
The  program  conducts  each  prediction  for  the  requested  overall  and  octave 
band  levels  independently.  All  levels  are  A-weighted.  For  IF  =  1;  the 
overall  A-weighted  equivalent  sound  level,  LE(A),  is  calculated.  For 
roadway  receiver  configurations  with  neither  a  barrier  nor  an  absorptive 
ground  strip  between  the  roadway  and  the  receiver,  the  program  uses  the 
defined  values  for  y   (See  Section  3.7,  Alpha  Input).  If  y   equals  zero, 
distance  attenuation  due  to  atmospheric  absorption  at  500  Hz  is  calculated 
(see  Section  A. 5).  If  y   is  greater  than  zero,  attenuation  due  to  atmos- 
pheric absorption  is  bypassed.  For  traffic  noise  propagation  over  a 
barrier  or  across  a  ground  strip,  the  octave  band  center  frequency  at 
500  Hz  is  assumed  and  the  appropriate  attenuation,  including  air  ab- 
sorption, is  calculated  with  y   equal  to  zero. 
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For  IF  equal  to  or  greater  than  2,  the  FHWA  Level  2  program  conducts 
octave  band  sound  level  calculations  for  IF  =  2,  ...,  NF.  The  overall 
octave  band  level,  LEOB(A),  is  calculated  as  the  intensity  summation  of 
the  octave  band  levels.  For  these  calculations  the  theory  of  Sections 
A.l  and  A. 2  is  used  with  y  =   0.  The  attenuation  due  to  barriers,  ab- 
sorptive ground  strips,  and  atmospheric  absorption  is  calculated  at  the 
appropriate  octave  band  center  frequency.  The  octave  band  center  fre- 
quency, is  calculated  from  63  Hz  (IF  =  2)  through  8000  Hz  (IF  =  9)  using 
the  algorithm: 


fn  =  2n  •  103/64  (A-15) 

n  =  IF  =  2,  3,  ...,  9. 

Equation  (A-15)  is  also  used  to  derive  algorithms  for  calculating 
barrier  diffraction  (subroutine  BARFAC),  absorptive  ground  strip  attenua- 
tion, and  atmospheric  absorption  (Subroutine  GEOMRY). 


A. 4    Attenuation  of  Sound  Levels 

The  traffic  noise  prediction  code  provides  for  the  consider- 
ation of  the  attenuation  of  sound  levels  from  the  source  to  the 
receiver  due  to  the  following  physical  factors: 

t  Distance  between  source  and  receiver 

•  Barriers  between  source  and  receiver 

•  Trees  and  shrubbery  between  source  and  receiver 

t  Atmospheric  absorption 

t  Reflection  of  sound  to,  the  receiver 
(negative  attenuation). 
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The  basic  attenuation  included  in  the  acoustic  model  is  an 
inverse  square  law  spreading  of  sound  intensity  (i.e.,  3  dB  per 
distance  doubling)  that  is  frequency  independent.  All  other  forms 
of  excess  attenuation  considered  by  the  prediction  code  consider 
both  frequency  and  distance  effects  in  calculating  attenuation  as 
may  be  appropriate  to  the  models  utilized. 

By  plotting  the  predicted  values  of  equivalent  sound  level, 
LE(A),  and  the  statistical  levels  (LgQ,  L5Q,  and  L-|Q)  versus 
distance,  the  user  will  note  slight  differences  in  distance  attenu- 
ation rates  for  the  different  descriptors.  The  reason  for  this  is 
that  both  sound  level  and  the  composite  value  of  standard  deviation 
decrease  with  distance  at  different  rates  (see  Equation  (A-9)), 

The  statistical  sound  level  descriptors  are  functions  of 
both  the  equivalent  sound  level  and  the  standard  deviation  of  the 
sound  level  —  hence,  one  would  expect  to  observe  differences. 

A. 5    Atmospheric  Absorption 

The  traffic  noise  prediction  code  utilizes  an  empirical 
formula  for  the  attenuation  of  sound  resulting  from  atmospheric 
absorption.  This  formula  is  dependent  upon  frequency  and  distance 
between  the  source  and  the  receiver  and  is  specialized  for  ambient 
temperatures  around  68° F  and  relative  humidity  in  the  range  of 
50  to  70  percent  (4). 

The  empirical  formula  utilized  is 

eA  =  5.4  •  10"4  (2.35)(n_5)  r     dB  (A-16) 

where   n  is  the  octave  band  frequency  index 
(see  Equation  (A-15)) 

r  is  the  source-receiver  distance  in  feet 
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Attenuation  of  sound  for  atmospheric  absorption  is  accom- 
plished in  Subroutine  GEOMRY.  For  the  overall  A-weighted  sound 
level  prediction,  the  value  used  is  that  for  500  Hz  (i.e.,  n  =  5 
in  Equation  (A-15)) . 

The  distance  used  by  the  prediction  code  in  calculating 
atmospheric  absorption  is  the  distance  from  the  receiver  to  the 
nearest  point  on  the  roadway  segment  or  sub-segment  being  analyzed, 


A. 6     Diffraction 

Diffraction  of  sound  is  caused  by  obstacles  in  the  direct 
or  reflected  propagation  paths  from  the  roadway  to  the  receiver. 
Such  obstacles  can  be  artificial  barriers,  earth  berms,  hills, 
buildings,  etc.  For  the  calculation  of  attenuation  by  diffraction, 
the  obstacle  can  be  modeled  by  a  rigid,  impervious  screen  oriented 
perpendicular  to  the  ground  plane  so  that  sound  is  diffracted  over 
the  top  edge  of  the  screen  exclusively.  The  shape  of  hills  and  the 
thickness  of  barriers  are  neglected  because  of  the  lack  of  avail- 
able knowledge.  The  sound  absorption  and  transmission  properties 
of  barriers  are  not  considered  because  they  play  a  minor  role  in 
most  practical  cases.  The  neglect  of  diffraction  around  the  ends 
of  barriers  will  introduce  no  significant  errors,  and  it  simplifies 
considerably  the  computational  procedures.  Furthermore,  a  dif- 
fracting barrier  is  then  completely  specified  by  the  coordinates 
of  the  two  end  points  of  the  top  line  defining  the  barrier  segment. 

The  attenuation  of  sound  by  barriers  is  determined  primarily 
by  the  difference,  6,  between  the  path  length  of  the  shortest  ray 
from  the  source  over  the  top  edge  of  the  barrier  to  the  receiver 
and  the  path  length  of  the  direct  ray  from  the  source  to  the  receiver 
in  the  absence  of  the  barrier  (Figure  A-2). 
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BARRIER 


SOURCE 


(xs,ys,zs) 


RECEIVER 


(xRlyR  ,zR) 


8  =  A  +  B -d 


Figure  A-2.  DEFINITION  OF  THE  PATH  LENGTH  DIFFERENCE 
6  FOR  SOUND  DIFFRACTION  BY  A  BARRIER 


For  large  path  length  differences,  the  attenuation  in  the 
acoustical  shadow  zone  of  a  barrier  is  limited  by  effects  of  refrac- 
tion and  scattering  of  sound  in  the  atmosphere.  Based  on  data  (5), 
the  coded  procedures  have  a  maximum  attenuation  of  20  dB. 

The  attenuation  for  a  barrier  is  not  zero  for  zero  path 
length  difference  (i.e.,  for  a  ray  grazing  over  the  barrier).  For 
this  situation,  the  theory  of  Fresnel  diffraction  yields  an  attenu- 
ation of  about  5  dB.  The  attenuation  becomes  negligible  when  a 
direct  sound  ray  traveling  from  the  source  to  the  receiver  passes  far 
over  the  top  edge  of  the  barrier.  To  simplify  computations,  diffrac- 
tion effects  are  no  longer  considered  when  the  height  difference 
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between  the  direct  ray  and  the  top  of  the  barrier  is  greater  than 
20  feet. 

For  height  differences  of  20  feet  or  less,  the  Fresnel  number 
is  expressed  as: 

N  =  f-  ,  (A-17) 

where  6  is  the  path  length  difference  and  X  is  the  wavelength 
corresponding  to  the  center  frequency  of  an  octave  band.  For  normal 
atmospheric  conditions,  the  speed  of  sound  in  air  is  assumed  to  be 
1120  ft/sec.  Thus,  for  a  center  frequency  f,  the  Fresnel  number 
becomes : 

N  =  21  6  =  f6/560  (A-18) 

The  barrier  attenuation  is  calculated  as  a  function  of  the 
Fresnel  number,  using  an  analytic  approximation  to  the  measured  data 
of  Maekawa  (6): 

e.n  =  20*log,  J ^—  |  +  5,  dB  for  N  *  -  0.2     (A-19) 

B         10\tanh  7m) 

eB  =  0  otherwise 

Equation(A-19)is  applicable  to  both  positive  and  negative 
values  of  N.  However,  for  the  actual  computation,  the  values  of 
attenuation  are  calculated  as  a  function  of  N  using  the  following 
relationships  (see  Subrou**n1»  BARFflfc) ? 
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eB     =     0  dB  for  N  <  -  0.2 


eB     =     20  •   Tog,,]- ------  5     dB  for  -  0.2  <  N  1  0 


ll\tan  v^rfNT/ 
'Atanh  v^JrN  / 


(A-20) 


eB     =     20  •   1oqn4-  J    +5     dB  for  0  <  N  1  5.03 

eB     =     20  dB  for  N  >  5.03 

The  last  line  in  Equation  (A-20)  accounts  for  the  above-mentioned 
upper  limit  to  barrier  attenuation. 

As  shown  in  Figure  A-3,  the  attenuation  of  the  A-weighted 
sound  pressure  level  of  typical  passenger  car  noise  is  almost  iden- 
tical with  the  sound  attenuation  in  the  500  Hz  band.  Hence,  the 
primary  number  important  for  the  attenuation  of  road  traffic  noise 
is  the  path  length  difference,  6. 

The  path  length  difference  accounts  for  heights  and  distances 
of  a  point  source,  a  receiver,  and  the  top  edge  of  a  barrier. 
Furthermore,  it  accounts  for  the  reduced  attenuation  of  rays  oblique 
to  the  top  edge  of  the  barrier  (7). 

For  noise  from  a  road  segment  and  for  a  barrier  at  oblique 
angle  to  the  road,  the  coded  procedures  find  the  path  length  dif- 
ference 6N  for  sound  from  the  nearest  point  on  the  road  segment 
affected  by  the  barrier.  Then,  by  assuming  a  monotonic  variation 
of  the  path  length  difference  from  other  points  on  the  road,  the 
extreme  ends  of  the  road  segment  are  considered.  If  the  path  length 
differences,  6,  and  6?,  for  these  end  points  differ  from  6..  by  more 
than  a  number  that  results  in  an  attenuation  difference  of  about 
1  dB,  the  road  segment  between  the  near  point  N  and  the  point  1  or 
the  point  2,  respectively,  is  cut  in  half.  New  path  length  differ- 
ences are  calculated  for  the  new  end  points  of  the  road  segment,  and 
the  procedure  of  reducing  the  length  of  the  road  segment  is  repeated 
until  the  attenuation  by  diffraction  is  approximately  constant. 
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The  criterion  used  for  the  acceptance  of  a  sufficiently  small 
difference  in  path  length  differences  (i.e.,  uniform  attenuation)  is: 


(,.i^) 


2         I   r 

62  "  6i'  ■  T 


The  numbers  are  based  on  a  frequency  of  500  Hz,  for  which  the  effect 
of  Equation(A-21)on  the  attenuation  is  plotted  in  Figure  A-4. 

In  case  of  multiple  diffraction  by  several  barriers  in  paral- 
lel, the  coded  procedures  consider  the  strongest  diffraction  ex- 
clusively. 

This  is  a  conservative  procedure  resulting  in  attenuations 
that  are  somewhat  too  small,  but  it  seems  to  be  the  most  reasonable 
way  to  bypass  the  s/ery   complicated  and  not  yet  fully  understood 
problem  of  multiple  diffraction. 

A. 7     Ground  Absorption 

Ground  attenuation  is  a  function  of  the  structure  and  the 
covering  of  the  ground,  both  of  which  influence  its  acoustic  proper- 
ties, and  of  the  heights  of  the  source  and  receiver  above  the 
ground. 

For  these  procedures,  a  wery   simple  approximation  of  rectan- 
gular ground  strips  is  assumed,  defined  by  two  end  points  of  a 
center  line  and  by  a  width,  and  which  have  either  a  low  cover  such 
as  shrubbery  and  thick  grass,  or  a  high  cover,  such  as  trees. 

The  height  of  a  sound  ray  traveling  from  the  source  to  the 
receiver  over  the  ground  strip  is  checked  only  with  respect  to  the 
center  line  of  the  strip.  Thus,  it  is  assumed  that  the  plane  of 
the  ground  strip  is  approximately  parallel  to  a  plane  defined  by  a 
road  segment  and  a  receiver.  If  the  height  of  the  direct  sound 
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ray  from  the  source  to  the  receiver  is  more  than  10  feet  above  a 
ground  strip  with  a  low  cover  or  more  than  30  feet  above  a  ground 
strip  with  high  cover,  any  sound  attenuation  due  to  ground  absorp- 
tion is  neglected.  The  heights  of  10  and  30  feet  are  based  on 
rough  estimates  rather  than  on  field  experience  and  might  be  re- 
vised if  found  necessary. 

In  general,  the  amount  of  ground  attenuation  cannot  be 
stated  in  terms  of  excess  attenuation  per  unit  of  distance.  To  a 
first  approximation,  however,  such  behavior  can  be  assumed  in  the 
range  of  distances  of  200  to  2000  feet  unless  the  total  attenuation 
exceeds  20  dB  (4). 

No  attempt  has  been  made  to  calculate  accurate  distances 
over  a  ground  strip  with  the  computer  program.  Instead,  a  mean 
path  length,  r,  over  ground  strips  is  calculated  with  the  formula 

r  =  TTNVTjrm  {A"22) 

where  w  is  the  width  of  the  strip  and  I   the  length  of  the  center 
line. 

The  following  analytical  approximations  to  average  values 
of  measured  data  are  used  to  calculate  the  attenuation  of  sound 
propagating  (4): 

1)  Through  shrubbery  and  over  thick  grass 

eQ  =  [o.!8  log  (f)  -  0.3l]  j1^-  dB,         (A-23) 
(See  Figure  A-6) 
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Figure  A-5.     ATTENUATION  FOR  SOUND  PROPAGATION 
THROUGH  SHRUBBERY  AND  OVER  THICK 
GRASS,  MEASURED  DATA  AND  ANALYTICAL 
APPROXIMATION 
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Figure   A- 6.     ATTENUATION  FOR  SOUND  PROPAGATION   IN 
TREE  ZONES,  MEASURED  DATA  AND  ANALY- 
TICAL APPROXIMATION  FOR  AVERAGE  USA 
FORESTS 
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2)  Through  tree  zones 

1/3 
eQ     =     0.01    (f)      r/3.28      dB  (A-24) 

(See  Figure  A-6) 


where  r  is  given  in  feet  and  f  in  Hz.  With  r  in  feet  and  with  octave 
band  index  numbers  n,  where,  for  example,  n  =  5  for  the  octave  band 
center  frequency  f  =  500  Hz,  these  relations  become,  using  Equation 
(A-15): 

1)  For  shrubbery  and  thick  grass 


£G  =   (0.016n  -  0.028)r  dB     if  DQ  ±  20  dB 


er  =  20  dB  if  Dr  >  20  dB 


(A-25) 


2)  For  tree  zones 


eG     =     (2n/3)  r/131.2    dB  if  DQ  <  20  dB 


eG     =     20  dB  if  DQ  >  20  dB 


(A-26) 


The  notation  in  the  second  lines  of  Equations  (A-25)  and  (A-26)  indi- 
cate that  the  attenuation  is  limited  to  20  dB  based  upon  field  experi- 
ence (5). 

Consistent  with  the  assumption  that  the  ground  attenuation  is 
proportional  to  the  mean  path  length  of  the  sound  over  the  ground 
strip,  the  procedures  accumulate  attenuations  of  various  ground 
strips  in  series.  However,  since  the  path  length  considered  repre- 
sents a  statistical  average  for  rays  propagating  in  all  directions 
over  the  strip,  the  path  length  over  two  equal,  parallel  strips  is 
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not  just  twice  the  path  length  over  a  single  strip  of  twice  the  width 
but  is  generally  shorter.  Consequently,  the  attenuation  calculated 
for  one  strip  will  be  smaller  than  the  attenuation  calculated  for  two 
strips  in  parallel  each  having  half  the  width. 

The  purpose  of  using  the  statistical  formulation  for  path 
length  given  by  Equation  (A-22)  is  to  obtain  reasonable  predictions 
for  the  effects  of  ground  absorption  on  an  average  basis.  There 
exist,  however,  particular  cases  where  the  model  will  not  be  very 
accurate.  For  example,  the  attenuation  of  sound  from  a  short  road 
segment  by  long,  narrow  absorbing  strips  is  overestimated,  whereas 
the  attenuation  by  a  wide  strip  oriented  perpendicularly  to  the  road 
is  underestimated.  To  some  extent,  these  modeling  errors  compensate 
for  one  another  in  most  practical  situations.  In  general,  inaccuracies 
are  inherent  to  the  entire  problem  of  ground  absorption. 

A. 8    Reflection 

The  sound  field  at  a  receiver  results  from  contributions  of 
direct  (or  diffracted)  and  reflected  rays.  In  many  practical  cases 
of  sound  propagation  from  a  highway,  corrections  applied  for  reflec- 
tions are  small  compared  to  the  inaccuracies  involved  in  the  pre- 
diction of  ground  attenuation  and  in  uncertainties  with  acoustical 
shadow  zones  owing  to  wind  and  temperature  gradients  in  the  atmosphere. 
Therefore,  the  model  has  been  designed  to  account  for  reflections 
with  a  first-order  approximation. 

The  reflection  model  utilized  by  the  traffic  noise  prediction 
code  disregards  phase  relations  between  the  various  contributions  and 
considers  incoherent  waves  for  which  the  total  sound  intensity  is  the 
sum  of  the  intensities  of  the  individual  contributions. 

Reflections  from  the  road  surface  are  always  present.  How- 
ever, the  contributions  from  these  reflections  are  implicitly  included 
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in  reference  levels  at  a  short  distance  from  individual  vehicles  on 
the  road. 

Reflections  at  the  ground  plane  farther  from  the  roadway  are 
disregarded  because  they  generally  result  in  a  complex  interference 
pattern  with  the  direct  ray.  Consideration  of  these  effects  is  be- 
yond the  scope  of  a  first-order  approximation  for  reflections. 

Reflections  at  any  inclined  plane  result  in  rays  directed 
either  toward  the  ground,  and  thus  being  neglected,  or  toward  the 
sky,  and  thus  not  contributing  to  the  sound  intensity  at  a  normal 
receiver  location  close  to  the  ground.  Therefore,  only  reflections 
on  planes  that  are  perpendicular  to  the  ground  plane  are  considered 
by  the  prediction  code. 

Within  the  first-order  approximation,  this  model  also  neglects 
the  actual  frequency-dependent  magnitude  of  reflection  coefficients 
and  distinguish  only  between  reflection  coefficients  0  and  1  of 
reflecting  surfaces  (i.e.,  perfect  absorption  or  perfect  reflec- 
tion, respectively). . 

In  order  to  determine  whether  a  reflective  barrier  is  high 
enough  to  be  effective,  the  procedures  consider  the  possibly  reflected 
ray  that  travels  a  minimum  distance  from  the  road  segment  to  the 
receiver.  A  reflective  plane  perpendicular  to  the  ground  is  considered 
high  enough  if  the  direct  ray  strikes  the  barrier  at  least  2  feet  below  the 
top  edge  of  the  barrier.  For  reflection  points  within  2  feet  of  the 
top  edge,  diffraction  effects  are  considered  by  the  model  to  be  strong 
enough  for  all  frequencies  so  that  the  reflected  ray  is  sufficiently 
reduced  in  amplitude  to  be  negligible. 

Also  neglected  by  the  model  are  reflections  from  planes  that 
are  either  very  short  or  wery   remote  so  that  the  contribution  to  the 
sound  intensity  at  the  receiver  is  less  than  10  percent  of  the  inten- 
sity received  via  direct  (or  diffracted)  rays  from  the  road  segment 
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under  consideration.     The  analytical   formulation  for  this  criterion 
is 

Sfe    10     B  <     0.1  (A-27) 


where     d  =  distance  from  the  receiver  to  the  road  segment 
in  feet 

Aa  =  aspect  angle  of  the  road  segment  at  the  receiver 

d1  =  distance  from  the  road  segment  to  a  receiver 
location  imaged  about  the  reflector 

Aa'  =  aspect  angle  of  the  barrier  at  the  image 
receiver 

ed  =  attenuation  in  dB  by  diffraction  of  the  direct 
ray  due  to  a  possible  barrier  (referred  to  a 
frequency  of  500  Hz). 


Single  reflections  are  considered  exclusively;  contributions 
from  rays  that  strike  two  or  more  reflectors  are  ignored.  It  is 
essential  for  the  future  calculation  of  higher  order  statistical 
parameters  of  road  traffic  noise  that  the  reflections  of  sound 
from  a  certain  road  segment  be  treated  as  amplifications  of  the 
direct  (or  diffracted)  rays  and  not  as  uncorrected  contributions 
from  independent  road  segments.  The  factor  F  multiplying  the 
intensity  of  the  direct  sound  from  a  road  segment  is  calculated 
in  Subroutine  6E0MRY  using 


F  =  10 


-eD/10     N  .  ,  .   -E../10  ,    v 

B'    +   y  Aa.jd  1Q  l  (A-28) 


i=1Aad! 


where  the  subscript  i  indicates  reflections  at  N  different  surfaces, 
each  of  which  might  be  diffracted  by  a  barrier  before  or  after  reflec- 
tion and  therefore  might  have  an  attenuation  e..  The  factor  F  is 
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calculated  as  a  function  of  frequency.  The  notation  in  Equation  (A-28) 
is  the  same  as  in  Equation  (A-27)  except  for  the  angle  Act'  which 
denotes  the  aspect  angle  of  the  road  segment  at  the  image  receiver 
(Figure  A-7). 

A. 9     Combination  of  Attenuation  and  Reflection 

A. 9.1    Atmospheric  Absorption 

The  overall  procedures  account  for  atmospheric  absorption  in 
combination  with  barrier  diffraction,  ground  absorption  and  reflec- 
tions. The  path  length  used  for  calculating  the  atmospheric  absorp- 
tion is  the  direct  distance  from  the  source  to  the  receiver  and  is 
not  corrected  for  the  path  length  difference  6  of  diffracted  rays 
nor  for  the  increased  path  length  of  reflected  rays.  The  factor  F, 
defined  by  Equation  (A-28)  is  multiplied  by  10  A',  where  D.  is 
defined  by  Equation  (A-16),  in  order  to  calculate^for  each  individual 
road  segment, the  factor 

-e/10       -e-/10   -er/10 
10      =  F-10      -10  b  (A-29) 

This  composite  attenuation  factor  is  employed  for  the  calculation  of 
the  energy  mean  level  in  Equations  (A-8)and  (A-9). 

A. 9. 2   Ground  Absorption 

The  prediction  procedure  includes  ground  absorption  if  such 
attenuation  is  significant  only  for  the  case  of  no  diffraction  of 
sound  from  the  source  to  the  receiver.  That  is,  if  in  analyzing  a 
sub-segment  of  a  roadway  segment,  diffraction  of  the  direct  ray 
from  the  source  to  the  receiver  is  encountered,  the  prediction  code 
ignores  the  attenuation  resulting  from  ground  cover  of  all  types 
for  the  sub-segment  of  roadway  being  analyzed.  As  indicated  by 
Equation  (A-29),  the  same  ground  absorption  is  assumed  for  both  the 
direct  rays  and  for  all  reflections. 
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Figure  A- 7.  EXAMPLE  FOR  RAY  TRACES  FROM  A  REFLECTOR, 
INDICATING  THE  CONSTRUCTION  BY  MEANS  OF 
AN  IMAGE  RECEIVER 
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A. 9. 3    Reflection  Before  or  After  Diffraction 

The  procedures  account  for  reflections  in  combination,  with 
diffraction  provided  that  there  is  only  a  single  diffraction  before 
or  after  the  reflection  and  that  the  path  length  increase  due  to 
diffraction  is  less  than  5.6  feet.  Doubly  diffracted  reflections 
are  neglected  as  well  as  very  weak  single  reflections  that  suffer, 
in  the  500  Hz  band,  the  maximum  attenuation  of  20  dB  assumed  for 
barrier  diffraction. 

The  attenuation  of  reflected  rays  by  diffraction  is  calcu- 
lated for  one  location  on  the  road  segment  only:  the  point  nearest 
to  the  image  receiver.  No  attempt  is  made  to  refine  this  calculation 
by  checking  for  the  attenuation  from  other  points  on  the  road  seg- 
ment, since  the  contribution  of  diffracted  reflections  will  be 
generally  small  and,  hence,  inaccuracies  of  the  calculation  will  be 
negligible. 
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APPENDIX  B 
DECLARED  SIZE  OF  ARRAYS 

B.l    •  PARAMETERS  DEFINING  THE  PROBLEM 

The  basic  parameters  used  by  the  prediction  code  and  upon 
which  the  declared  size  of  an  array  depends  are  as  follows: 

•  Number  of  Roadways,  NR:  Declared  as  20 

•  Number  of  Roadway  Sections,  NRSMl(NR):  Declared  as  10 

•  Number  of  Vehicle  Types,  NQ;     Declared  as  4 

t  Number  of  Traffic  Flow  Conditions  on  a  Roadway,  NQS(NR,NQ): 
Declared  as  5 

•  Number  of  Receivers,  NRC:  Declared  as  15 

t  Number  of  Octave  Frequency  Bands,  NF:  Declared  as  9 

•  Number  of  Barriers,  NB:  Declared  as  20 

t  Number  of  Barrier  Segments,  NBSMl(NB):  Declared  as  10 

•  Number  of  Ground  Strips,  NG:  Declared  as  10 

e  Number  of  Types  of  Ground  Strips,  IDUM(NG) :  Declared  as  2 
t  Number  of  Allowable  Reflections,  IDXR:  Declared  as  10 

•  Number  of  Program  Initialization  Parameters,  IP:  Declared  as  6 

The  following  sections  of  this  appendix  define  the  declared  size  of 
all  arrays  depending  upon  the  above  parameters.  Arrays  not  explicitly 
presented  in  the  following  sections  are  used  to  describe  coordinates 
in  (x,y)  space  (declared  as  2)' or  (x,  y,  z)  space  (declared  as  3)  and 
the  usage  should  be  evident  to  the  user. 

B.2     MAIN  PROGRAM  -  GENERAL  DIMENSION  STATEMENTS 

The  arrays  listed  below  with  general  dimension  statements  appear 
in  the  MAIN  PROGRAM.  The  user  should  refer  to  the  parameter  list  in 
Section  B.l 

RDIN(IP) 

XRC(NRC),YRC(NRC),ZRC(NRC) 

NQS(NR,NQ) 

XLE(NF) 
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GAMA(NRC,NR) 
XMPH(NR,NQS,NQ),VEXPH(NR,NQS,NQ) 

RX(NR,NRSM1  +  1),RY(NR,NRSM1+1)J>RZ(NR,NRSM1+1) 
NRSMl(NR) 

B.3    BLOCK  DATA-GENERAL  DIMENSION  STATEMENTS 

The  arrays  listed  below  with  general  dimension  statements 
appear  in  BLOCK  DATA.  The  user  should  refer  to  the  parameter  list 
in  Section  B.l. 

C0(NF,NQ),C1(NF,NQ),S0(NF,NQ) 

GAMA(NRC.NR) 

B.4     SUBROUTINE  INPUT-GENERAL  DIMENSION  STATEMENTS 

The  arrays  listed  below  with  general  dimension  statements 
appear  in  subroutine  INPUT.  The  user  should  refer  to  the  parameter 
list  in  Section  B.l. 

NQS(NR,NQ),VTEMP(NQ) 

BX(NB,NBSM1+1),BY(NB,NBSM1+1),BZ(NB,NBSM1+1) 

IBLAST(NB),NBSM1(NB) 

XXG1(NG,IDUM),YYG1(NG,IDUM),  ZZGl(NG.IDUM) 

BGS(NG),IDUM(NG) 

RX(NR,NRSM1+1),RY(NR,NRSM1+1),RZ(NRSM1+1) 

NRSMl(NR) 

XMPH(NR,NQS,NQ),VEXPH(NR,NQS,NQ) 

RDIN(IP) 

XRC(NRC),YRC(NRC),ZRC(NRC) 

C0(NF,NQ) ,C1(NF,NQ) ,S0(NF,NQ) 

GAMA(NRC,NR) 

B.5     SUBROUTINE  CHECK-GENERAL  DIMENSION  STATEMENTS 

The  arrays  listed  below  with  general  dimension  statements 
appear  in  subroutine  CHECK.  The  user  should  refer  to  the  parameter 
list  in  Section  B.l 
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BX(NB,NBSM1+1),BY(NB,NBSM1+1),BZ(NB,NBSM1+1) 

IBLAST(NB),NBSM1(NB) 

XXG1(NG,IDUM),YYG1(NG,IDUM),ZZG1(NG,IDUM) 

BGS(NG),IDUM(NG) 

RX(NR,rmSMl+l^RY(NR,NRSMl+l),RZ(NR,NRSMl+l) 

NRSMl(NR) 

B.6  SUBROUTINE  INTER-GENERAL  DIMENSION  STATEMENTS 

The  arrays   listed  below  with  general   dimension,  statements  appear 
in  subroutine  INTER.     The  user  should  refer  to  the  parameter  list  in 
Section  B.l. 

C0(NF,NQ),C1(NF,NQ) 

5Q(NF,NQ) 
XMPH(NR,NQS,NQ),VEXPH(NR,NQS,NQ),NQS(NR,NQ) 

XLREF(NR*NQS*NF*NQ),CQ(NR*NQS*NF*NO) 

B.7  SUBROUTINE  GEOMRY-GENERAL  DIMENSION  STATEMENTS 

The  arrays  listed  below  with  general   dimension  statements 
appear  in  subroutine  GEOMRY.     The  user  should  refer  to  the  parameter 
list  in  Section  B.l. 

Bl (3,2 ,NB*(NBSM1+1 ) ) ,R1 (3,2 ,NB*(NBSM1+1 ) ) , 

RB1(3,2,NB*(NBSM1+1)),TA1(3,2,NG), 

KBC0DE(NB^NBSM1+1)),KNUMB(NB*(NBSM1+1)), 

KRNUMB(NB*(NBSM1+1)),  KRDNUM(NB*(NBSM1+1) ) 

KGCODE(NG),BGT(NG),IKIN(NG),BGS(NG),IDUM(NG), 

DELPO(MQ) ,DELP1 (NQ) ,DELP2(NQ) ,FB(NF ,NQ) , 

DELR(NQ,IDXR) ,FG(NF) ,HGA(IDUM) , 

XIMG(3,IDXR),ZS(NQ),RDIN(IP),NQS(NR,NQ), 

XLE(NF) ,XMPH(NR,NOS ,NQ) ,VEXPH(NR,NQS,NQ) , 

BX(NB,NBSM1+1),BY(NB,NBSM1+1),BZ(NB,NBSM1+1), 

IBLAST(NB)  ,NBSM1  (NB)  ,XXG1  (NGJDUM)  ,YYG1  (NG.IDUM) , 

ZZG1 (NG,IDUM) ,XLREF(NR*NQ*NF*NQS) , 

CQ(NR*NQ*NF*NQS). 

GAMA(NRC.NR) 
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APPENDIX  C 

ALLOCATION  OF  COMMON  BLOCK  DATA 

Table  C-l,  below,  indicates  the  allocation  of  common  block  data 
within  the  highway  traffic  noise  prediction  code.  The  user  may  refer  to 
the  listings  in  Appendix  C  and  Appendix  E,  as  appropriate,  for  the  vari- 
ables assigned  to  each  common  block. 

TABLE  C-l 
ASSIGNMENT  OF  COMMON  BLOCK  DATA 


COMMON  BLOCK 
TITLE 

DC 

CD 

o 
en 

Q. 

t— i 

i— 

o 

_J 

CO 

I— 

D_ 

c_> 

LU 

o 

LU 

1— 

i— i 

UJ 
CD 
LU 
Q 

>- 
cc 

o 

LU 
CD 

/INOU/ 

• 

• 

• 

• 

X 

• 

• 

/ST0RE1/ 

X 

X 

• 

t 

X 

X 

• 

/ST0RE2/ 

X 

X 

• 

t 

X 

X 

• 

/ST0RE3/ 

• 

X 

• 

t 

X 

X 

X 

/ST0RE4/ 

• 

X 

• 

X 

• 

X 

• 

/INPT1/ 

• 

X 

t 

X 

X 

X 

• 

/INPT2/ 

• 

X 

• 

• 

X 

X 

• 

/INPT3/ 

• 

X 

• 

X 

X 

X 

X 

/INPT4/ 

t 

X 

• 

X 

X 

X 

X 

/DRIV2/ 

• 

X 

§ 

X 

• 

X 

• 

/DRIV3/ 

• 

X 

X 

X 

X 

X 

• 

/DRIV4/ 

t 

X 

X 

X 

X 

X 

• 

/BLK2/ 

t 

X 

t 

X 

X 

X 

• 

/CONSTS/ 

X 

• 

t 

X 

• 

X 

X 

/GEO!/ 

• 

X 

X 

X 

X 

X 

t 

/INTER1/ 

X 

X 

X 

X 

• 

X 

• 

/TIT!/ 

• 

X 

• 

X 

X 

X 

• 

/OPTION/ 

• 

• 

0 

X 

X 

X 

t 

/TABLE/ 

• 

§ 

• 

X 

X 

X 

X 

/FUNC/ 

X 

X 

X 

X 

X 

X 

• 

t  Denotes  Assignment  of  Common 
x  Denotes  No  Assignment  of  Common 
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APPENDIX  D 
ARCHITECTURE  OF  PREDICTION  CODE 

D.l  INTRODUCTION 

The  version  of  the  highway  traffic  noise  prediction  code  described 
in  this  manual , differs  slightly  from  previous  versions  (See  Section  2.) 
of  the  code.     As  compared  to  the  1974  version,  the  user  will   note  that  the 
present  version  includes  an  additional   subroutine  called  CHECK  and  a 
BLOCK  DATA  subprogram.     The  complete  program  comprises  the  MAIN  PROGRAM 
and  thirty-four  (34)  subprograms.     The  data  management  within  the  code  is 
accomplished  by  MAIN,  INPUT,  and  GEOMRY.     The  subroutines  calculating 
acoustical   parameters  are  BLOCK  DATA,  INTER,  BARFAC,  and  IEPS.     The   27 
remaining  subprograms  are  related  to  the  geometric  description  of  the 
problem. 

The  program  is  written  in  FORTRAN  IV  language  and  is  intended 
to  run  in  the  batch  mode.     As  described  in  this  manual,  data  input  is 
via  a  card  reader  and  output  is  via  a  line  printer  (See  Appendix  C; 
COMMON/ I NOU/). 

The  MAIN  program  is  described  in  detail   in  this  appendix.     Detail 
descriptions  of  the  subprograms  are  provided  in  appendix.     Following 
the  description  of  each  subprogram,  the  listing  for  that  block  of  code 
is  presented.     The  organization  of  the  prediction  code  is  illustrated 
in  Figure  D-l. 

D.2  MAIN  PROGRAM  DESCRIPTION 

The  MAIN  program  controls  the  flow  of  operations  required  to  per- 
form the  highway  traffic  noise  estimates  at  each  receiver.     The  MAIN 
program  calls  various  subprograms  that  conduct  the  bulk  of  the  calcula- 
tions.    The  basic  program  variables  initialized  by  the  MAIN  program 
are  NQ=3,  NG=0,  and  NB=0  (i.e.,  three  vehicle  types,  no  absorptive  ground 
strips,  and  no  barriers). 

The  main  program  immediately  reads  and  prints  the  user-defined 
title.     Next,  the  MAIN  program  calls  SUBROUTINE  INPUT  to  read  the  input 
data  defining  the  problem  (See  Section  6  and  Appendix  E).     If  the  user 
fails  to  properly  define  a  roadway  and/or  a  barrier  by  at  least  two 
end  points,  an  error  message  is  printed  and  the  MAIN  program  attempts  to 
read  the  next  data  set  (See  Section  5.8). 
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Following  execution  of  INPUT,  the  MAIN  propram  calls  SUBROUTINE  CHECK 
to  determine  if  either  a  barrier  segment  or  an  absorptive  ground  strip 
center  line  intersect  a  roadway  segment.     If  such  an  intersection  occurs 
an  error  message  is  printed  for  each  such  intersection  (See  Section  5.8) 
Following  the  execution  of  CHECK,  the  MAIN  program  is  ready  to  begin 
sound  level  estimates    if  no  errors  have  been  encountered. 

The  MAIN  program  next  calculates  the  reference  distance  sound 
levels  and  standard  deviations  for  each  vehicle  type, traffic  flow  con- 
dition and  each  frequency  band  specified  for  all   roadways.     This  cal- 
culation is  conducted  by  SUBROUTINE  INTER.     Following  execution  of 
subroutine  INTER,  the  MAIN  program  begins  the  receiver  sound  level 
estimates  in  the  following  sequence: 

The  array,  XLE(J),  is  initialized  to  zero.     This  array  contains 
the  normalized  values  of  the  acoustic  intensity  at  the  receiver  for  the 
overall  A-weighted  intensity,  XLE(l),  and  the  A-weighted  octave  band 
intensity  (XLE(J),J=2,9). 

The  MAIN  program  next  selects  the  roadway  number  and  initializes 
the  coordinates  of  the  first  end  point  of  the  roadway  segment  (array, 
XR1(J)).     The  next  end  point  of  the  roadway  segment  is  specified  (array 
XR2(J))  and  the  basic  problem  is  defined  for  the  prediction  code   (i.e., 
roadway  segment/ receiver  geometry.     See  Section  3.1). 

To  perform  the  calculations  related  to  the  basic  problem  defined 
for  the  code,  the  MAIN  program  calls  subroutine  GEOMRY.     The  vast  bulk  of  the 
calculations  performed  by  the  prediction  code  are  conducted  in  subroutine 
GEOMRY.      If  no  errors  are  encountered  in  subroutine  GEOMRY   (See  Section 
5.8),  the  MAIN  program  continues  the  roadway  analysis  for  each  roadway 
segment  until  all   roadways  have  been  considered.     The  normalized  acoustic 
intensity  is  accumulated  in  the  array  XLE(J)  in     subroutine  GEOMRY. 

Following  the  analysis  of  all  roadways  (sources)  for  the  speci- 
fied receiver,  the  MAIN  program  next  calculates  the  standard  deviation, 
SIGL,  for  the  composite  traffic  noise  and  adjusts  the  normalized  acoustic 
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intensity^  XLE(J),into  absolute  units  of  sound  level   (also  stored  in  array 
XLE(J)).     The  main  program  then  calculates  the  sound  level   descriptors 
LE(A)   (XLE(l)),  L50,  L10,  and  L90.     The  output  data  is     pinted  for  the 
specified  receiver  and  the  MAIN  program  selects  the  next  receiver  contin- 
uing the  above  sequence  until  all  receivers  have  been  considered. 

The  flow  diagram  for  the  main  program  is  illustrated  in  Figure 
D-2.  Statement  numbers  are  presented  at  points  on  the  flow  diagram  so 
that  the  user  may  refer  to  specific  blocks  of  code  as  required. 

D.3  MAIN  PROGRAM  VARIABLE  LIST 

The  variables  used  in  the  MAIN  program  are  listed  below.     Array 
variables  are  not  indicated  as  such;  however,  the  user  may  refer  to 

Appendix  B,  as  required,  to  determine  appropriate  array  sizes.     Variables 

not  listed  are  described  in  the  subprograms  where  they  are  utilized. 

CAP2  Cumulant  for  the  A-weighted  acoustic  intensity 

I  Index  for  receiver  loop 

IQ  Index  for  vehicle  type 

J  Index  for  frequency  band 

M  Index  for  roadway  number 

N  Index  for  road  section  number 

NB  Number  of  barriers 

NF  Number  of  frequency  bands 

N6  Number  of  absorptive  ground  strips 

NLIM  Number  of  points  defining  a  roadway 

NO  Number  of  vehicle  types 

NQS  Vector  notation  for  number  of  vehicle  types  for  each  roadway 

NR  Number  of  roadways 

NRC  Number  of  receivers 

NRSM1  Number  of  sections  for  one  roadway 

RDIN  Vector  notation  for  initialization  parameters 

RX  x-coordinate  of  roadway  point 

RY  y-coordinate  of  roadway  point 

RZ  z-coordinate  of  roadway  point 

SIGL  Standard  deviation  of  A-weighted  sound  intensity 

XAL  Energy  mean  A-weighted  overall  sound  level 
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(  START  "") 


Initialize: 

Number  of  Ground  Strips  NG  =  0 

Number  of  Barriers  fIB  =  D 

Number  of  Vehicle  Types  NQ  =  3 


READ  OPTION  CARD/TITLE 


SET  OPTION  FLAGS 


WRITE  TITLE 


CALL  INPUT 


CALL  CHECK 


No 


IERR  =  1  ? 

or 
IERR  =  2  ? 


Yes 


GO  TO  5 


A  * 


WRITE:  TITLE 
■  + 


NF  =  RDIN(2) 


T 


CALL  INTER 


"  20 


Initialize: 
Mean  Intensity  Level  XLE  =  0 
For  All  Frequency  Bands 


15 


CAP2  =  0 


Set  Values  of  XR1 


Set  Values  of  XR2 


i 


CALL  GEOMRY 


No 

rz 


/  IERR  =  3  ?  V 


A(  IERR  -   4  ?  )- 


CALL  REPLCE 
XR1  =  XR2 


40 


Yes 


GO  TO  66 


Yes 


GO  TO  60 


FIGURE  D-2.  MAIN  PROGRAM  FLOW  DIAGRAM 
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40 


COMPUTE  SIGL 

COMPUTE  MEAN  ENERGY  LEVEL 
FROM  MEAN  INTENSITY  LEVEL 

55; 

i 

XAL  =  0 

No 


< 


NF<  9  ? 


> 


Yes 


53  % 


COMPUTE  OVERALL  LEVEL,  XAL, 
AS  INTENSITY  SUM  OF  0.  B.  LEVELS 


154 


flo 


<~lZ_ll> 


Yes 


155|  WRITE:  RECEIVER  HEADING 


WRITE  RECEIVER  NO.  AND  COORDINATES 


156 


No 


<^  NF  =  1  rv 


Yes 


WRITE: 

OCTAVE  BAND  HEADING 

OCTAVE  BAND  LEVELS:  XLE(2) , . . . ,XLE(NF) 


56  :* 


CALCULATE: 
XL50,XL10,XL90 


T 


WRITE: 

Sound  Level  Descriptor  Heading 

XLE(1),XL90,XL50,XL10,SIGL 


60 


GO  TO  5 


66  , 

WRITE: 

"TOO  MANY  REFLECTIONS", I, M,N 

i 

GO  TO  5 


± 


STOP 


FIGURE  D-2.  MAIN  PROGRAM  FLOW  DIAGRAM  (Concluded) 
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XLE  Energy  mean  A-weighted  intensity  and  level  in  frequency  bands 

XL10  A-weighted  sound  exceeded  10%  of  the  time 

XL50  A-weighted  sound  exceeded  50%  of  the  time 

XL90  A-weighted  sound  exceeded  90%  of  the  time 

XR1  Road  section  initial  point 

XR2  Road  section  end  point 

XRC  x-coordinate  of  receiver 

YRC  y-coordinate  of  receiver 

5JRC  z-coordinate  of  receiver 

NZQR  Number  of  roadways  with  sound  level   exceeding  criterion 

NZQS  Number  of  roadway  segments  with  sound  level  exceeding  criterion 

BLEV  Criterion  sound  level 

NZQ1  Roadway  number  of  the  roadways  with  sound  level   exceeding 

criterion 

NZQ2  Segment  number  of  the  segments  with  sound  level  exceeding 
criterion. 

D.4  MAIN  PROGRAM  LISTING 

The  block  of  code  comprising  the  MAIN  program  of  the  highway 
traffic  noise  prediction  code  is  presented  in  the  listing  on  the 
following  pages. 
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0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

003b 

0037 

0038 

0C39 

0040 

0041 

0042 

C       PL.     PUT    ANY    COMMENTS    IN    THIS    LINE    THAT    OU  WANT    TO... 
C       TRAFFIC    NOISE    PREDICTION    MODEL 
C       EAIN    PROGRAM         02/79  SAI    MOD 

IMPLICIT    REAL*8     (A-H,0-Z) 

INTEGER    UNIT  (2,2) 

DIMENSION    XR1  (3)  ,  XR2(3) 

COHMOH/INOU/INPT,  IOUT 

CCMMON/BLK2/NQ 

COMMON    /INPT1/RDIN  (6)  ,TRDIN(6) 

COMMON/IN  PT2/Ntf,NE,NG 

COMMON/INPT3/XRC(  15)  ,YRC(15)  ,  ZBC  (15)  ,  NBC 

COMMON/INPT4/TXFC  (15)  ,TYRC(15)  ,TZRC  (15) 

CCMMON/DRIV2/NQS(20,4) ,NF 

COMMON    /DRIV3/XLE  (9) 

COMMON/STORE4/XMPH  (20,5,4)  ,VEXPH  (20,5,4) 

CCMMON/DRIV4/CAP2 

COMMON/STORE3/RX(20,11)  ,  BY  (20  ,  1 1)  ,RZ  (20,  1  1)  ,  NRSM1  (20) 

COHMON/GE01/IBAR, ISEG,IGRA 

COMMON    /OPTION/M£TIN,METOUT,IREFL 

CCMMON    /TABLE/GAMA  (15,20)  ,IFIFST 

COMMON/TIT  1/TRC  (5,  15)  ,BLEV  (1  5)  ,ZZQ,  IGOO  (20,  1 1 )  ,R 

DIMilNSIONALZQ  (20,  10)  ,NZQ1  (20)  ,NZQ2{20,10)  ,NNZQS  (20) 

INTEGER    TITLE  (30) 

DATA    IOPT/»*  V^IYES/'Y         »/»NO/'N         •/ 

DATA  UNIT/'ENGL',  »ISH  • , ' HETR •, ' IC   •/ 
C   NUMBER  OF  VEHICLE  TYPE  IS  SET  TO  3  IN  THIS  PROGRAM 

NG=0 

NB=0 

NQ   =    3 
C       BEAD    OPTION    CARD,    IP    ANY 
C       DEFAULT    IS    ENGLISH   INPUT,    ENGLISH   OUTPUT,    AND  COHPDTE   REFLECTIONS 

READ    (INPT, 1005,ENC=999)     TITLE 

IF    (TITLE  (1)  .NE.ICPT)     GO    TO    10 

IF    (TITLE(14)  .EQ.  IYES)     METIN=1 

IF    (TITLE  (28)  .EQ.  IYES)     METOUT=1 

IF    (TITLE  (42)  .EQ.  NO)  IREFL=0 

5    BEAD(INPT,1005,ENE=999)TITLE 
10         I    =    METIN    +    1 

J    =    METOUT    ♦    1 

DO777MRK=1,20 

NZQ1  (MRR)=0 

DO777MRS=1,10 

NZQ2(MRR,MRS)=0 

ALZQ(HRR,HRS)=0.D0 
777         CONTINUE 

MRITE(IOUT, 2009)0  NIT  (1,1), UHIT(2, 1)  ,UHIT(1,J)  ,UNIT(2,J) 

HRITE (IOUT, 1002)     TITLE 

CALL   INPUT 


MAIN  PROGRAM  LISTING 
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0043  CALL    CHECK(IEEB) 

0044  IF    (IERR.EQ.  1.0fi.  IEBB.EQ.2)     GO   TO    5 

0045  WRITE    (IOUT,1001) 

0046  KBITE(IOUT,  1002)TITLE 

0047  WRITE (ICUT, 1003) 
0043  NF=RDIN(2) 

C       EERFORM    INTERPOLATION 

0049  DO  20  K=1,NR 

0050  DO  20  IQ=1,NQ 

0051  NQC1=NQS(M,IQ) 

0052  IF  (N'QCLNE.O)  CAIL  IBTEB(H,IC) 

0053  20  CONTINUE 

C       KA1N    LOOP    OF    PROGRAM 

0054  DO    60    1=1, NBC 

0055  NZQR=0 

0056  DO    15    J=1,N? 

0057  XLE(J)=0.D0 

0058  15    CONTINUE 

0059  CAP2=0.0 

0060  DC    40    M=1,NB 

0061  NZQS=0 

0062  XR1  (1)=RX  (11,1) 

0063  XB1  (2)=RY(H,1) 

0064  XR1 (3) =RZ  (M,1) 

0065  NLIM=NBSM1 (M) +1 

0066  DO   41    N=2,NLIf1 

0067  XB2(1)  =  RX  (M,N) 

0068  XR2<2)=RY  (M,N) 

0069  XR2(3)=FZ  (H,M) 
0C70  3AK   =    GAHA(I,M) 

0071  ZZQ=0.D0 

0072  CALL    GEOMRY  (XRC(I)  /YRC(I)  ,ZBC  (I)  ,XB  1  ,  XB2,  IE&R,  M,  G  AS) 

0073  IF  (IERR.EQ.  3)  GO   TO    66 

0074  IF(IEHB.EQ.  4)  GO  TO    60 

0075  IF(BLEV(I) . LE.O.DO) GOT0977 

0076  IF(ZZQ.LE.0.D0)GOTO977 

0077  ZQ=DLOG10 (ZZQ)*1.  D1  +  1.D2 

0078  IF(ZQ.LT.BLEV  (I)- 5- DO)  GOT0977 

0079  NZQS=NZQS+1 

0C80  IF(NZQS.E£.  1)  NZQB=RZQB+1 

0081  NZQ1(NZQF.)=M 

0032  NZQ2(NZQR,NZQS)  =N-1 

0083  ALZQ(NZQR,NZQS)  =ZC 

0C84  977         CONTINUE 

0035  CALL    KEPLCE(XB2,XB1) 

0086  41  CONTINUE 

0037  IF  (NZtfS.  NE.  0)  NNZQS  (NZQB)  =NZQS 

0088  40   CONTINUE 


MAIN  PROGRAM  LISTING  (Continued) 
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0089  SIGL=4.  35*DSQET  (D  ICG  (1 . 0+CAP2/XLE  (1)  **2) ) 

0090  DO  55  J=1,NF 

0091  XLE(J)  =  1.D2+1.D1*ELOG10(XLE(J)) 

0092  55    CONTINUE 

C       COMPUTE    SUM    OF    ALL   OCTAVE    BAND    LEVELS 

0C93  XAL   =    0. 

0094  IF    (NF.LT.2)     GO   TO    154 

0095  DO   53    J=2,NF 

0096  53         XAL   =    XAL    ♦    10.    **     (XLE(J)/10.) 

0097  XAL   =    10.     *    DLOG10(XAL) 

0093  154      IF    (I.NE.1)     WRITE  (IOUT, 1006) 

0099  155    IF     (METOUT.EQ.O)     WRITE  (IOUT,  1  004)  I,  XRC  (I)  ,Y0C  (I)  ,  ZRC  (I) 

1,  (TRC(ID,I)  ,ID=1,  5) 

0100  IF     (HETOUT.EQ.1)     WRITE  (IOUT,  1  004)  I,  TXEC  (I )  ,TYRC  (I)  ,TZRC  (I) 

1,  (TRC  (ID,  I),  10=1,5) 

0101  156    IF(NF.EQ.  1)     GO    TO    56 

0102  WRITE(IOUT,2010) 

0103  WRITE(IOUT,2001) 

0104  WRIT£(IOUT,2002)  (XLE  (II)  ,11=2,  NF) 

0105  56    XL50=XLE(1)-SIGL**2/8,7 
0136  XL10  =  XL50  +  1.23*SIGL 

0107  XL90=XL50-1.23*SIGL 

0108  WRITE (IOUT, 2003) 

0109  WRITE  (IOUT,  2004 )XLE(1)  ,XAL,XL90,  XL50,  XL10  ,SIGL 

0110  IF(BLEV(I)  .GT.O.DO.AND.NZQR.EQ.O)  WR1TE(I0UT,782)BLEV(I) 

0111  782         FORMAT ('ONO    ROADWAY    SEGMENTS    EXCEED    CRITERION    LEVEL   OF',F7.1, 

1'       DB») 

0112  IF(NZQR.EQ.O)  GOTO60 

0113  WRITE  (IOUT,  783)  BLFV(I) 

0114  783  FORMAT  ('OROADWAY    SEGMENT    SOUND   LEVEL    CONTRIBUTIONS    EXCEEDING', 

1»    CRITERION    LEVEL    CF',F7.1,»       DB • ) 

0115  WRITE  (IOUT, 778) 

0116  778         FORMAT (•    ROADWAY' ,T11, 'SEGMENT'/) 

0117  D0779MRR=1,NZQR 
0113  NZQS=NNZQS(MRR) 

0119  WRITE  (IOUT, 780)  NZQ1  (HRR)  ,  (NZQ2  (MRR,  MRS)  ,MR3=1  ,NZQS) 

0120  780         FORMAT(1X,I4,T10, 1015/) 

0121  WRITE (IOUT, 781) (A LZQ (MRR, MRS) ,MRS=1,NZQS) 

0122  781         FORMAT (T11,10F5.1/) 
012  3  779         CONTINUE 

0124  60    CONTINUE 

0125  GO    TO    5 

0126  66    WRITE  (IOUT, 1009)1, M,N 

0127  GO   TO    5 

0128  999      STOP 

0129  10Q1    F0RMAT(1H1) 

0130  1002    FORMAT (80A1) 

0131  1003    FORMAT (11H   RECEIVBE      10X,3HXRC9X,3HYFC9X, 3UZRC) 

0132  1004    F0RMAT(4X,I3,5X,3F12.1,5X,5A8) 

0133  1005    FORMAT(80A1) 

0134  1006    FORMAT  (IliilRECEIVIR       10X ,  3HXRC9X,  3HYRC9X,  3UZRC) 

0135  1009    FORMAT  (26H    TOO    HANY    REFLECTIONS, RCV    ,I2,4H      R    ,I2,4H      S    ,12) 

0136  2001    FORilAI  (    1  4X,  2H635 X,3H1254X,3H2504X,  3H5003X,  JH10003X,  4H200O3X  , 

X    4H40003X,4H8000) 

0137  2002    FORMAT(10X,8F7.1) 

0138  2003    FORMAT  (/1 1X  ,5HLE(  A)  ,2X,7HLEOB  (A)  ,3X  ,  3HL90  ,5X  ,  3HL50,  5X,3HL1  0, 

X  4X,5HSIGMA) 

0139  2004    FORMAT(8X,6F8.1//) 

0140  2009    F0EMAT(1H1,5X, 'TRAFFIC    NOISE    PREDICTION    (INPUT    UNITS:    ',2A4, 

1  ', OUTPUT   UNITS:     »,2A4, »)•//) 

0141  2010    FORMAT (/25X,22HOC TAVE    BAND    LEVELS    (A)) 

0142  END 


MAIN  PROGRAM  LISTING  (Concluded) 
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APPENDIX  E 
SUBPROGRAM  DESCRIPTIONS 

This  appendix  contains  the  descriptions  of  the  thirty-four  (34) 
subprograms  utilized  by  the  prediction  code  to  estimate  highway  traffic 
sound  level  estimates.  The  code  utilizes  20  Subroutine  subprograms  and 
14  Function  subprograms.  Each  subprogram  is  described  as  an  independent 
block  of  text  using  a  standardized  format. 

For  each  subprogram  the  following  format  is  used  to  describe 
the  subprogram: 

PURPOSE:  The  purpose  of  the  subprogram  is  described 
SUBPROGRAMS  USED:  The  subprograms  used  by  the  subprogram  are 

1  i  s  ted 
VARIABLES:  The  variables  used  by  the  subprogram  are  described  in 
sequence:  Input  parameters,  subprogram  parameters, 
output  parameters 
RESTRICTIONS:  Any  restrictions  that  should  be  recognized  by 

the  user  are  described 
ACCURACY:  The  accuracy  of  the  subprogram  is  described  (if  appropriate) 
SIZE:  The  compiled  size  of  the  subprogram  is  given  in  bytes 
REFERENCES:  Any  appropriate  references  are  listed 
FIGURES:  Any  figures  required  to  understand  the  subroutine  are 

presented 
LISTING:  The  subprogram  is  listed. 
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E.l   SUBROUTINE  INPUT 


PURPOSE: 


SUBROUTINES 
USED: 

VARIABLES: 


Performs  all  inputs  to  the  program,  except  for  the  title 
cards  which  are  read  in  from  MAIN.  All  input  data  are 
stored  in  common  blocks  and  listed. 

None 

input  Parameters 

METIN       -  Option  flag  indicating  units  of  input. 

METOUT      -  Option  flag  indicating  units  of  output. 

Subroutine  Parameters 

NQ4        -  A  flag  to  indicate  the  existence  of  type 

4  vehicles. 
VALUE       -  Initialization  parameter. 
IDN        -  Index  for  program  initialization  parameter. 
ILAST       -  Indicator  for  last  card  of  a  group  of  data. 
ALPHA(I)     -  Optional  alphanumeric  information  provided 

by  user. 
I  -  Index. 

BLNK       -  Alphanumeric  constant  "0  V 
ALP1(I,IDN)  -  Default  initialization  parameters  description. 


LAST 

I  GO 

II 

12 

VEH 

XMH 

XKH 

ITY 

J 

K 

NSEC 

NQC1 


-  Alphanumeric  constant  "L". 

-  Index  for  data  blocks. 

-  Number  of  items  in  data  block. 

-  Dummy  variable 

-  Number  of  vehicles  per  hour. 

-  Speed  in  mph  for  the  group  of  vehicles  in  question 

-  Speed  in  kph  for  the  group  of  vehicles  in  question, 

-  Vehicle  type. 

-  Index. 

-  Index. 

-  Section  number. 

-  Vehicle  group  number  within  one  vehicle  type 
and  one  roadway. 
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SUBROUTINE  INPUT  (Continued) 

XKPH(I,J,K)  -  Vehicle  speed  in  kph  per  group  per  vehicle  type 
per  roadway. 


TRX(J,NSEC) 

TRY(J,NSEC) 

TRZ(J,NSEC) 

TBX(J,NSEC) 

TBY(J,NSEC) 

TBZ(J,NSEC) 

TXXG1(I,J) 

TYY61(I,J) 

TZZGl(I.J) 

I  ERR 

M5 

M6 

IMOD(I.J) 

GAM 

IR 

IRC 

IR1  V 

IR2  J 

L 


}• 
!- 

!- 


Coordinates  for  the  endpoints  of  roadway 
sections  in  metric. 

Coordinates  for  the  endpoints  of  barrier  sections 
in  metric. 


Coordinates  for  the  endpoints  of  ground  strips 
in  metric. 

-  Error  flag  for  ALPHA  input. 

-  Indicator  for  receiver  input. 

-  Indicator  for  ALPHA  input. 

-  Array  indicating  presence  of  ALPHA  data. 

-  ALPHA  value. 

-  Roadway  number 

-  Receiver  number 

-  Indexes. 

-  Index. 


VTEMP(NQCl)  -  Number  of  vehicles  per  hour. 

IDM  -  Type  of  ground  strip. 

IFIRST 

TCI  ^  -  Spectron  for  sound  level  and  standard  deviation 

TSO  '        for  type  4  vehicle,  in  metric. 

IA  -  Alphanumeric  constant  'A'. 

IR  -  Alphanumeric  constant  'R'. 

IG  -  Alphanumeric  constant  'G'. 

IT  -  Alphanumeric  constant  'T'. 

IRDUM  -  Dummy  variable. 

TRDIN(IDN)  -  Array  for  storing  initialization  parameters 

in  metric. 

XNIGHT  -  Equivalent  to  RNIN(l),  receiver  height  adjustment, 
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SUBROUTINE  INPUT  (Continued) 


Output  Parameters 

NR  -  Number  of  roadways. 

NQ  -  Number  of  vehicle  types. 

NRSMl(J)  -  Number  of  sections  for  1  roadway. 

RDIN(IDN)  -  Array  for  storing  initialization  parameters. 

RX(J,NSEC)   . 

RY(J,NSEC)  >  -  Coordinates  for  the  endpoints  of  roadway 

RZ(J,NSEC)  J  sections  in  feet. 

C0(I,4),  CI  -  User  defined  spectra  for  sound  level  and 

S0(I,4)  standard  deviation  for  type  4  vehicle. 

NQS(J,ITY)  -  Number  of  vehicle  groups  per  vehicle  type  per 

roadway. 

VEXPH(I,J,K)  -  Number  of  vehicles  per  type  per  hour 

XMPH(I,J,K)  -  Vehicle  speed  in  mph  per  group  per  vehicle 

type  per  roadway. 

NB  -  Number  of  barriers. 

NBSMl(J)  -  Number  of  sections  for  1  barrier. 

IBLAST(J)  -  Barrier  type. 
BX(J,NSEC)  . 

BY(J,NSEC)  \  -  Coordinates  for  the  endpoint  of  barrier 

BZ(J,NSEC)  '  sections  in  feet. 

NG  -  Number  of  ground  strips. 
XXGl(I.J)  v 

YYGl(I.J)  \  -  Coordinates  for  the  endpoints  of  ground  strips 

ZZG1(I,J)  '  in  feet. 

BGS(I)  -  Width  of  absorptive  ground  strip. 

IDUM(I)  -  Type  of  absorptive  ground  strip. 

GAMMA(I.J)  -  ALPHA  array. 

ID  -  Index  for  40  character  description. 

TRD(ID,J)  -  40  character  description  of  roadway  #J. 

TRS(ID,J,NSEC)  40  character  description  of  roadway  #J  segment  #NSEC, 

TB(ID,J)  -  40  character  description  of  barrier  #J. 

TG( ID, I )  -  40  character  description  of  groundstrip  #1. 

TRC(ID,I)  -  40  character  description  of  receiver  #1. 
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SUBROUTINE  INPUT  (Continued) 


RESTRICTIONS 


SIZE: 
REFERENCES 


IGOO(J,NSEC)  -  Parameter  indicating  whether  upgrade  or  not. 
(IGOO  =  1  upgrade,  IGOO  =  level  or  downgrade). 

-  Criteria  on  level  of  receiver  #1. 

-  Number  of  receivers. 

-  Receivers  coordinates 

Input  vehicle  speed  should  be  within  the  range  of  30-65  mph 
(or  50-105  kph).  Speed  less  than  30  mph  (or  50  kph)  will  be 
adjusted  by  the  program  to  30  (or  50).  Speed  over  65  mph  (or 
105  kph)  will  be  adjusted  to  65  (or  105).  If  data  for  type  4 
vehicle  is  provided,  the  number  of  vehicle  types  is  4,  other- 
wise, it  is  defaulted  to  3.  If  the  user  desires  to  allow 
speed  dependence  for  user-defined  type  4  vehicle,  the  comment 
cards  from  card  #21000-22800  in  the  program  listing  should  be 
removed.  This  data  would  be  entered  in  the  program  initializa- 
tion parameter  data  block.  See  Sections  3.2,  6.0,  and  Appendix 
A,  Section  A. 2. 

39378 

None 
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f    START  J 


For  IGO 


READ  first  card  of  a  data  block  with 
control  number  IGO  and  the  number 
II  of  items  following 


100 


t 


READ  program  initialization  parameters 


For  IGO 


TYPE  program  initialization  parameters 


200, 


T 


Set  the  number  NR  of  roadways  equal  to  II 


For  all  roadways: 


For  all  vehicle  types: 

Initialize  number  of  vehicle 
speed  groups  NQS  =  0 


220 


For  all  vehicle  groups: 

READ  the  number  of  vehicles  per  hour 
VEH,  the  speed  XMH,  the  type  of  vehi- 
cle.  Count  the  number  NQS  of  groups 
for  each  vehicle  type.   Compute  the 
vehicle  concentration  VEXPH. 


I 


For  all  groups  of  all  vehicle  types: 

Store  the  vehicle  concentration  VEXPH 
and  the  speed  XMPH. 


240 


For  all  road  sections: 

READ  coordinates  of  the  endpoints. 
Count  the  number  NSEC  of  road  sections 


/  Is  NSEC  =  0?  \ 


WRITE  error  message 


Store  road  sections 


280 


£ 


/exit) 


FIGURE  E-l.  SUBROUTINE  INPUT:  FLOW  DIAGRAM 
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For  IGO  =  3: 


Set  the  number  of  barriers  NB  equal  to  II 


< 


Is  NB  = 


For  all  barriers 


*"> 


Branch  to  5 

1 


For  all  barrier  sections: 

READ  coordinates  of  endpoints.   Count 
the  number  NSEC  of  barrier  sections 


<< 


Is  NSEC 


=  0?^— 


WRITE  e 
message 


rror        fZ^7Z\ 
ge         -\EXITJ 


Store  barrier  sections 


For  IGO  =  4: 


350  4 
400 


T 


Set  the  number  of  ground  strips 
NG  equal  to  II 


/is  NG  =  0?\ 


For  all  ground  strips: 


READ  coordinates  of  the  center  line, 

the  width  and  the  type  of  ground 

cover  and  store  all 


For  IGO  =  5: 


490  4- 
500  O 


Set  the  number  of  receivers  NRC  equal  to  11 


For  all  receivers: 


READ  receiver  coordinates.   Adjust 
receiver  height  as  specified  by 
the  initialization  parameters 


590 


I 


FIGURE  E-l.  (Continued) 
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FOR  IGO  =  6 


600 
■<  IS  11=0  > *-Y 


1 


READ  ALPHA  VALUES  FOR 
SPECIFIC  ROADWAYS 
AND  RECEIVERS 


JL 


IS  THERE  REPETITION 
IN  DATA  DEFINITION 


615 


STORE  VALUE 
OF  ALPHA 


IGRR=1 


WRITE  ERROR 
MESSAGE 
i 


FIGURE  E-l .   (Continued) 
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For  IGO 


7< 


For  all  roadways: 


For  all  groups  of  all  vehicle  types: 

TYPE  type  number,  group  number, 
vehicles  per  hour  VEXPH,  speed  XMPH 


TYPE  coordinates  of  initial  road  point 


For  all  road  sections: 
TYPE  coordinates  of  endpoint 


For  all  barriers: 


TYPE  barrier  type,  coordinate 
of  initial  barrier  point 


For  all  barrier  sections: 
TYPE  coordinates  of  endpoint 


For  all  ground  strips; 


TYPE  ground  cover  type,  coordinates 

of  center  line  endpoints,  width 

of  ground  strip 


For  all  receivers: 


TYPE  receiver  number,  receiver  coordinates 


PRINT  ALPHA  TABLE 


I 


WAS  THERE  ANY 
INPUT  ERROR 


> 


C  RETURN  ) 

FIGURE  E-l.  (Concluded) 
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0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 


0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 

0037 
0038 
0039 
0C40 
0041 
0042 
00«3 
0044 
0045 
0046 
0047 
0048 
0049 
0050 


TDX  (20, 
TXXG1  (1 
THX  (20, 
TC0(9) 
XKPH(20 


C      INPUT  02/79 

SDBKOUTINE  INPDT 
IMPLICIT  BEAL+8  ( 
INTEGER  ALPHA  (25) 
DIMENSION  VTEMP(5 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
COMMON/DRIV2/NQ5 ( 
C0KM0N/5T0RE1/BX( 
COMMON/STORE2/XXG 
COMMON/STCRE3/RX( 
COMMON/STORE4/XHP 
COHMON/INOU/INPT, 
CCMHON/BLK2/NQ 
COMMON  /INPT1/RDI 
C0MM0N/INPT2/NR,N 
COMMON/INPT3/XRC( 
CONMON/INPT4/TXRC 
COMMON  /CONSTS/CO 
COMMON  /OPT  I  ON/ ME 
CCMMON  /TABLE/GAM 
COMMON/TIT1/TRC(5 
DIMENSIONTRD(5,20 
EQUIVALENCE  (RDIN 
DATA    ALP1    / 


SAI    MOD 


,5,4) 

20,4)  ,SF 

20,11)  ,BY  (20,11)  ,BZ(20,1 

1  (10,2)  ,YIG1  (10,2)  ,ZZG1  ( 

20,11)  ,  BY  (20,11)  ,RZ(20,1 

H  (20,5,4)  ,VEXPH  (20,5,4) 

ICUT 


0,2)  ,T3GS(10) 


1)  ,IBLAST(20) 
10,2),3GS(10) 
1),NBSM1  (20) 


,  NBSM1  (20) 
,IDOM(10) 


A 

2 

B 
3 
C 
4 
D 
5 
E 
6 
F 


RECE' 
i 

NUMB' 
t 

HEIG' 
GER    ■ 
HEIG' 
TRUC* 
HEIG' 
TBO' 
HEIG* 
HICL« 
DATA         IA/2HA    /,I 
DATA         IB/2HR   / 
DATA         IT/2HT   / 
DATA    LAST/2HL   / 
DATA    BLNK/2H      / 
M5   =    0 
M6   =    0 
5    aEAD(INPT#1000)IG 
GO  TO(100,200,300 
:    GARBAGE    DATA. . . . PBOGR 
100    HRITE(lOUT,2000) 
NQ4    =    0 
DO    110    1=1,6 
110      RDIN(I)     =    0.0 
120      READ(INPT,1001)    V 
BDIN(IDN)  =VALOE 
TRDIN(IDN)     =    VALU 
IF    (IDN.EQ.2)     GO 
IF    (METIN.EQ.O)    T 
IF    (HfiTIN.EQ.1) 
IP    (IDN.EQ.6)     NQ4 
IF     (MET0UT.2Q.0) 
IF    (MSTOUT.EQ.1) 
130      DO    140    1=1,25 


N{6)  ,TRDIN(6 
B,NG 

15),YEC{15)  , 
(15)  ;TYRC(15 
(9,4)  ,C1(9,4 
IIN,METOUT,I 
A(15,20)  ,IFI 
,15)  ,BLEV(15 
) ,TRS(5,20, 1 
(1)  ,XNIGHT) 

HE 


,  'IVEB 
t 

,  «SR   0 
t 

,'HT  A 
,  'CARS 
,'HT  A 
,  •KS 
,»HT  A 
,  «CKS 
,  »HT  A 
,'ES 
G/2HG  / 


F    F 

DJO 

(T 
DJO 

(T 
DJO 

(T 
DJO 

(T 


) 

ZRC  (15 
)  ,TZEC 
),S0(9 

REEL 
BST 

),ZZQ, 
1),TB( 

I', »GH 
i     • 

K '  ,  •  EQ 
i     i 

S»,  »TM 
Y", 'PE 
S', 'TM 

Y  •  ,  »  PE 
S«, 'TM 
Y«, 'PE 
S», »TM 

Y  •  ,  « PE 


)  ,NRC 

■(IS) 

,<*) 


IGC0(2 
5,20), 


0,11), N 
TO  (5,  10) 


T     < 

i 

•ADJU" 

t 

i 

i 

OE' 

t 

•NCY    • 

t 

<! 

* 

EN 

/ 

•T    h')1 

t 

1 

8 

'     VEiP 

i 

EN 

t 

"T    FO« 

i 

2 

, 

'     VEH' 

* 

EN' 

e 

'T    FO« 

t 

3 

e 

'     VEil' 

i 

EN' 

t 

•T    F0« 

, 

4 

, 

»    V2ri« 

i 

ST  ME1 


NT 


t 
•     t 


R 

PA' 

,'SSEN 

ICLE' 

,'S) 

R 

HE' 

,'AVY 

ICLE' 

,'S) 

R 

ME« 

,«DIUM 

ICLE» 

,»S) 

R 

NE» 

,'H    VE 

ICLE' 

,'S) 

/ 


0,11,12 

,400, 500, 60  0, 700), IGC 

AM    INITIALIZATION    PAEAMETERS 


ALUE,IDN,ILAST,  (ALPHA(I)  ,1=1,25) 

E 

10    130 

RDIN  (IDN)  =VALUE*0.  3048 

RDIN  (IDN)  =VAIOE*3.  28CS3 

=  1 

VALUE=    RDIN  (IDN) 

VALDE=TRDIN  (IDN) 


butsKUuiilNt   INPUT:   LISTING 


E-10 


0051  If  (ALPHA(I)  .NE.BLNK)    GOTO    150 

0052  140  CONTINUE 

0053  WRITE(IOUT,2016)  VALUE, IDN,  (ALP1  (I,  IDN)  ,1=1 ,  1  4) 
0C54  GO  TO  160 

0055  150  WRITK(IOUT,2001)  VALUE, IDN,  (ALPHA  (I)  ,1=1,  25) 

0056  160  IF(ILAST.NE.LAST)  GO  TO  120 

0057  IF  (NQ4.EQ.0)  GO  TO  5 

0058  NQ  =  4 

0059  DO  165  I  =1,9 

0060  165  C1(l,4)  =  0.0 

0061  If  (HETIN.EQ.1)  GO  TO  180 

0062  R£AD(INPT,1006)  (CO  (1,4)  ,1=1 ,  9)  ,  (SO  (I  ,4)  ,  1=1 ,  9) 
C  1                ,(C1(I,4)  ,1=1,9) 

0063  DO  170  1=1,9 

0064  TCO(I)  =  C0(I,4)  -  C1  (1,4)  *DLCG10  (1 .  60934  DO) 

0065  170  CONTINUE 

0066  GO  TO  195 

0067  180  BEAD  (INPT,1006)  (TCO  (I)  ,  1=1 ,  9)  ,  (SO  (I  ,4)  ,  1=1 ,  9) 
C  1                 ,  (C1  (1,4)  ,1=1,9) 

0068  DO  190  1=1,9 

0069  C0(I,4)  =  TCO  (I)  -  C1  (1,4)  *DL0G1  0  (0  .  62137D0) 

0070  190  CONTINUE 
C 

0071  195  IF  (HETOUT.EQ.O)  HBITE  (IOOT,  2015)  (CO  (1,4)  ,1=1  ,  9)  ,  (SO  (1,4)  ,  1=  1,9) 
C  1                                 ,(C1  (1,4)  ,1=1,9) 

0072  IF  (HETOUT.EQ.1)  HBITE  (IOUT,  2015)  (TCO  (I)  ,  1=1 ,  9)  ,  (SO  (1,4)  ,1=1  ,9) 
C  1                                  (C1  (1,4)  ,1=1,9) 

0073  GO  TO  5 
C 

C 

C  VEHICLE  DATA 

C 

0074  200  NB=I1 

0075  DO   280    J=1,NH 

0076  NSEC=1 

0077  DO    210    K=1,NQ 

0078  210  NQS(J,K)=0 

0079  220  IF    (METIN-EQ.1)    iiC    TO    224 
C       ENGLISH    ISPUT 

0080  READ(INPT,1002)     V EH,XHH, ITY,ILAST 

1,  (TED(ID,  J)  ,ID=1,  5) 

0031  IF    (XHH.GE.30.)    GC   TO   222 

00d2  XMH=30. 

0C83  WRITE (IOUT, 2020) 

0084  GO   TO    230 

0085  222  IF    (XMH.LE.65.)    GC   TO   230 
0C36  XMH=65. 

0C87  RRI1E(ICUT,2030) 

0088  GO   TO    230 
C       HETRIC   INPUT 

0C89,                                224  READ    (INPT,1002)     VEH,XKH, ITY, ILAST 

1,  (TED(ID,J)  ,ID=1,  5) 

0090  IF    (XKH.GE.50.)    GC    TO    226 

0091  XKH   =    50.0 

0092  WRITE     (IOUT, 3020) 

0093  GO   TO    230 

0094  226  IF  (XKH. LE. 105.)  GO  TO  230 

0095  XKH  =  105.0 

0096  WRITE  (IOUT, 3030) 

0097  230  IF  (METIN.EQ.O)  X KH=XHH*1 .60934 

0098  IF  (HETIN.EQ.1)  X SH=XKH*0. 62 1 371 

0099  NQS  (J,ITI)=SQS(J,  ITY)+1 

0100  NQC1  =  NQS(J,ITY) 

SUBROUTINE  INPUT:  LISTING  (Continued) 
E-ll 


0101  VEXPH  (J,HQC1,ITY)  =VEH/XMH/5280. 

0102  XMPH(J,NQC1,ITY)  =  XMH 

0103  XKPH(J,NO.C1,ITY)=XKH 

0104  IF(ILAST.HE.LAST)  GO    TO    220 
C    ROADWAY    DATA    SECTIONS 

0105  240      IF    (KSTIN.2Q.1)    GC   TO   242 

0106  READ(INPT,1010)RX  (J, NSEC)  ,RY  (J, NSEC)  ,BZ(J,NSEC)  ,ILAST 

1,IG00  (J, NSEC)  ,  (TSS  (ID, J, NSEC)  ,ID=.1,  5) 

0107  TRX(J,NSEC)    =   BX(J,NSEC)     *    0.3048 
0103  TRY(J,NSEC)     =    RY(J,NSEC)     *    0.3048 

0109  TBZ(J,NSEC)     =    RZ(J,NSEC)     *    0.3048 

0110  GO   TO    246 

0111  242      READ     (INPT,1010)     TRX  (J, NSEC)  ,  TRY  (J,  NSEC)  ,TR2  ( J,  NS  EC)  ,ILAST 

1,  IGOO  (J, NSEC)  ,  (TRS  (ID, J, NSEC)  ,ID=1,  5) 

0112  RX(J,NSEC)    =    TRX(J,NSEC)     *   3.28083 

0113  BY(J,NSEC)    =    TRY(J,NSEC)     *    3.28083 

0114  RZ(J,NSEC)    =    TRZ(J,NSEC)     *    3.28083 

0115  246      IF(ILAST.EQ.LAST)  GO   TO    250 

0116  NSEC=NSEC+1 

0117  GO  TO  240 

0118  250   IF(NSEC-1.NE.0)GO  TO  260 

0119  WRITE (IOUT, 2010) 

0120  CALL  EXIT 

0121  260   NRSM1  (J)=NSEC-1 

0122  280   CONTINUE 

0123  GO  TO  5 
C 

C    BARRIER    DATA    SECTIONS 
C 

0124  300      NB=I1 

0125  IF(N3.EQ.0)GO   TO    5 

0126  DO   350    J=1,NB 

0127  NSEC=1 

0128  310      IF    (METIN.EQ.1)    GC   TO    315 

0129  BEAD(INPT,1003)  BX  (J, NSEC)  ,BY  (J,NSEC)  ,EZ(J,NSEC)  ,IBLAST(J) 

1,  (TB(ID,J),ID=1f5) 

0130  T3X(J,NSEC)    =    BX(J,NSEC)     *    0.3048 

0131  TBY(J,NSEC)     =    BY(J,NSEC),    *    0.3018 

0132  TBZ(J,NSEC)     =    BZ(J,NSEC)     *   0.3048 

0133  GO   TO    317 

0134  315      READ    (INPT,1003)     IBX  (J,  NSEC)  ,  TBY  (J, .NSEC)  ,  TBZ  ( J,  NSEC)  , IBLAST  ( J) 

1,  (TB(ID,J)  ,ID=1,5) 

0135  BX<J,NSEC)  =  TBX(J,NSEC)  *  3.28083 

0136  BY(J,NSEC)  =  TBY(J,NSEC)  *  3.28083 

0137  BZ(J,NSEC)  =  TBZ(J,NSEC)  *  3.28083 

0133  317   IF(IBLAST(J)  .  EQ. I  A. OR.  IBLAST  (J)  .EQ.IR)GO  TO  320 

0139  NS£C=NSEC+1 

0140  GO  TO  310 

0141  320   IF(NSEC-I.NE.O)  GO  30  330 

0142  WRITE  (IOUT, 2011) 

0143  CALL  EXIT 

0144  330   NBSM1 ( J) =NSEC-1 

0145  350   CONTINUE 

0146  GO  TO  5 

C    ABSORBING    GROOND    STRIPS 

0147  400      NG=I1 

0148  IF(NG.  EQ.0)GO    TO    5 

0149  DO    490   1=1, NG 

0150  IF    (3ETIN.EQ.  1)    GC   TO    450 

0151  READ(INPT,100  4)XXG1  (1,1)  ,YYG1  (I,  1)  ,  ZZG1  <I,  1)  ,BGS{I) 

0152  TXXG1(I,1)    =    XXG1(I,1)     *    0.3048 

0153  TYYG1(I,1)     =    YYG1  (I,  1)     *    0.3048 
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0154  TZZG1(I,1)    =    ZZG1(I,1)     *    0.3048 

0155  TBGS{I)    =    BGS(I)     *    0.3048 

0156  READ(INPT,  1003)  XXG1  (1,2)  ,YYG1  (I,2),ZZG1  (1,2)  ,10011(1) 

1,  (TG(ID,I) ,ID=1,5) 

0157  TXXG1(I,2)  =  XXG1  (1,2)  *  0.3048 

0158  TYYG1(I,2)  =  YYG1(I,2)  *  0.3043 

0159  TZZG1(I,2)    =    ZZG1  (1,2)     *    0.3048 

0160  GO   TO    480 

0161  450      READ    (INPT, 1004)     TXXG  1  (I,  1)  ,  T  YYG  1  (I  ,  1 }  ,TZ  ZG1  (I,  1)  ,TBGS  (I) 

0162  XXG1(I,1)     =    TXXG1(I,1)     *    3.28033 

0163  TYG1(I,1)     =    TYYG1  (1,1)     *    3.28C83 

0164  ZZG1(I,1)     =    TZZG1  (1,1)     *    3.28083 

0165  BGS(I)     =    TBGS(I)     *    3.28083 

0166  READ  (INPT, 1003)  1XXG1  (I,  2}  ,  TYYG  1  (I  ,  2  )  ,TZZ31  (I,  2)  ,IDUH  (I) 

1,  (TG(ID,I)  ,ID=1,5) 

0167  XXG1(I,2)     =    TXXG1  (1,2)     *    3.28083 

0168  YYG1(I,2)     =   TYYG1  (1,2)    *    3.28083 

0169  ZZG1(I,2)     =    TZZG1  (1,2)     *    3.28083 

0170  480      IF(IDUi1(I).EQ.IG)  IDUH(I)=1 

0171  IF(IDUH(I)  .EQ.IT)  IDOH(I)  =2 

0172  490   CONTINUE 

0173  GO  TO  5 

C    RECEIVER    DATA 

0174  500      NRC=I1 

0175  M5   =    1 

0176  DO   590    1=1, NRC 

0177  IF    (METIN.EQ.1)    GC    TO    550 

0178  READ  (INPT,  101  l)XBC(I)  ,YRC(I)  ,ZRC(I)  ,IEDUM 

1,BLEV  (I)  ,  (TRC(ID,  I)  ,ID=1,5) 

0179  TXRC(I)     =    XRC  (I)     *    0.3048 

0180  TYRC(I)    =    YRC(I)     *    0.3048 

0181  TZBC(I)    =    ZRC(I)     *    0.3048 

0182  GO   TO    580 

0183  550      BEAD     (INPT,  1011)     TXKC  (I)  ,TYRC  (I)  ,TZRC  (I)  ,  IRDOK 

1,BLEV  (I)  ,  (TRC(ID,I)  ,ID=1,5) 

0184  XRC(I)  =  TXRC(I)  *  3.28083 
0135  YRC(I)  =  TYRC(I)  *  3.28083 

0186  ZRC(I)  =  TZRC(I)  *  3.28083 

0187  580      ZRC(I)=ZRC(I)  +XNIGHT 

0188  TZRC(I)     =    TZRC(I)     ♦    TRDIH(1) 

0189  590      CONTINUE 

0190  GO   TO    5 
C 

C       GAHMA    DATA 
C 

0191  600      IF    (I1.EQ.0)     GO  TO   5 

0192  IERR    =    0 

0193  M6   =    1 

0194  DO   605    J=1,20 

0195  DO   605    1=1,15 

0196  605      IMOD(I,J)     =    0 

0197  DO   690    1=1,11 

0193  READ    (INPT, 2050)     GAM,IRX,IRC 

0199  IR1   =    1 

0200  IH2   =    NR 

0201  IF    (IRX.EQ.O)     GO    TO    610 

0202  IR1    =    IRX 

0203  IR2   =    IRX 

0204  610      DO   630    J=IR1,IR2 

0205  DO   620    K=1,15 

0206  L   =   IRC(K) 

0207  IF    (L.EQ.O)     GO   TO    630 

0208  IF    (IHOD(L,J)  .EQ.  0)    GO   TO   615 
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0209 
0210 
0211 
0212 
0213 
0214 
0215 
0216 


0217 
0218 

0219 
0220 
0221 
0222 
0223 
0224 
0225 
0226 
0227 

0226 

0229 
0230 
0231 

0232 

0233 
0234 
0235 
0236 
0237 

0238 


0239 
0240 
0241 
0242 
0243 
0244 
0245 
0246 
0247 
0248 
0249 


0250 


0251 
0252 
0253 


615 

620 
630 
69  C 


IEKR    =    1 

WRITE     (IOUT,2060) 


1,J 


IHOD(L,J) 

GAMA(L,J) 

CONTINUE 

CONTINUE 

CONTINUE 

GO    TO    5 


=    1 

=    GAM 


PRINT  INPUT  DATA 


700 


70  5 
710 


715 
72  0 


72  5 
730 

73  5 


74  0 
745 


DO  720  J= 

WRITE(IOU 

1,  (TRD  (ID, 
DO  710  K= 
NQC1=NQS( 
IF(NQC1.E 
DO  705  1= 
VTEMP  (I)  = 
IF(M£TOUT 
IF  (HE TOUT 
CONTINUE 
IF(HETOUT 

1,IGO0  (J,1 
IF(M£T0UT 

1,IG00  (J,1 
NSEC=NRSH 
DO  715  1= 
IF(HETOUT 

1,IGOO(J,I 
IF(HETOUT 

1,IGO0  (J, I 
CONTINUE 
CONTINUE 
IF(NB.£Q. 
DO   730    J= 
IF(HET0DT 

1,  (T3(ID,J 
IF(METOUT 

1 

1,  (TB(ID,J 
N5EC  =  NB 
DO  725  1= 
IF(MET0UT 
IF(METOUT 
CONTINUE 
CONTINUE 
IF(NG.EQ. 
DO   740    1= 

if  (idg a  (i 

IF(IDU^  (I 
IF     (METOU 

1  WRITE  ( 

2  BGS(I) 
1,  (TG(ID,I 

IF    (METOU 

1  WKITE( 

2  TBGS(I 
1,  (TG(ID,I 

CONTINUE 

IF(METOUT 

IF(tlETOUT 


1,NR 

T,  2002)  J 

J)  ,ID=1, 

1,NQ 

J,K) 

Q.O)     GO    TO   710 

1,NQC1 

VEXPH(J, 

.EQ.O)  WR 

.EQ.  1)  WR 


5) 


I,K)  *XMPH  (J,I,K)  *528  0. 

ITE(IOUT,2004)K,  (I, VTEMP  (I)  ,XMPH(J,I,K)  ,I=1,NQC1) 

ITE(IOUT,3004)  K,  (I,V1EMP  (I)  ,XKPH(J,I,K)  ,1=1  ,NQC1) 


.EQ.O)  WRITE(IOUT,20  0  5)RX  (J,1),RI  (J,  1)  ,RZ  (J,  1) 
),  (TRS(IE,J,1),ID=1,5) 

.  EQ.  1)  WRITE(IOUT,300  5)TBX(J,1)  ,TRY(J,1)  ,  TBZ  {J,  1) 
)  ,  (TRS(ID,J,1),ID=1,5) 

KJ)  +1 

2,NSEC 

.EQ.O)  WRITE(IOUT,2Q0  6)I,RX  (J  ,1)  ,  RY(J,I)  ,BZ(J,I) 

),  (TRS(IE,J,I),ID=1,5) 

.  EQ.1)  WRITE(IOUT,200  6)I,TBX(J,I)  ,TEY  (J, I)  , TRZ  ( J, I) 

),  (TRS(ID,J,I)  ,ID=1,5) 


0)GO   TO    735 

1,NB 

.EQ.O)  W2ITE(IOUT,2007)J,IBLAST(J),37  (J,  1 )  ,BY  (J,  1)  ,BZ  (J,  1)  i 

),ID=1,5) 

.EQ.  1)  WR 


),ID=1,5 

sai  (J)   + 

2,NSEC 
.EQ.O)  WR 
.  EQ. 1) WR 


0)     GO    TO 

1,NG 

)  .EQ.1)I 

)  -EQ.2)I 

T.EQ.O) 

IOUT,201 

,XXG1  (I, 

) ,ID=1,5 

T.EQ.1) 

IOUT,201 

) ,TXXG1 ( 

),ID=1,5 

.EQ.O)  SR 
.  EQ.  1)  WR 


ITE(IOUT,300  7)  J,I3IAST(J)  ,  t  Bl  (J,  1)  ,TBI  (J,  1)  , 

T3Z(J,1) 
) 


1 


ITE(IOUT,2GG6)I,BX  (J  , I)  ,  BY  (J, I)  ,BZ(J,I) 
ITE(I0UT, 2006)1, TBX(J,I)  ,TBY(J,I)  ,TBZ (J,I) 


745 


DN=IG 
DM=IT 

2)I,IDH,XXG1  (I,  1),YYG1  (1,1)  ,ZZG1  (I,  1), 

2),YYG1  (1,2)  ,ZZG1(I,2) 

) 

2)I,IDM,TXXG1  (1,1)  ,TYYG1  (1,1)  ,TZZG1  (I,  1)  , 

1,2)  ,TYYG1  (1,2)  ,TZZG1(I,2) 

) 

ITE(IOUT,2008) 
ITE(IOUT,3008) 
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0254 
0255 

0256 

0257 

0258 
0259 
0260 
0261 

0262 

0263 
0264 
0265 
0266 
0267 
0268 
0269 
0270 
0271 
0272 
0273 
0274 
0275 
0276 
0277 
0278 
0279 
0280 

0281 

0282 


0283 

0284 
0285 

0286 

0287 

0288 

0289 
0290 
0291 

0292 

0293 
0294 

0295 

0296 


DO    750    1-1, NBC 
IF(METOUT.EQ.O)  HR 
1rBLEV(I)  ,  (TRC{ID, 
IF(METOUT.EQ.I)  WR 
1,BLEV  (I)  ,  (TRC(ID, 
750      CONTINUE 
C       PRINT    ALPHA    TAELE 

WRITE (IOUT,4000) (I,I=1,NR) 
WRITE(IOUT,4002) 
DO    760    J=1,NRC 
760      WRITE(IO0T,4001)J 


ITE(IOUT,2051)  I,XRC(I)  ,Y3C<I)  ,ZSC(I) 

I),ID=1,5) 

ITE(IOUT, 2051)1, TXRC  (I)  ,TYBC(I)  ,TZRC(I) 

I),ID=1,5) 


770 


1000 
1001 
1002 
1003 
10  04 
10C6 
1010 
1011 
20  00 
20  01 
2002 
2004 


TEST    FOE    PRESENCE    OF 
IF     (IERR.EQ.1)     ST 

CHECK    FOR    RECEIVER    D 
IF    (IFIRST.EQ.1) 
IFIRST    =    1 
RETURN 

IF  (M5.EQ.0.OR.M6 
WRITE  (IOUT,2070) 
STOP 

FORMAT  (315) 
FORMAT(E10.0,I5,4 
FORMAT (2E10. 0,15, 
FORMAT (3E10.0,A1, 
FOEMAT(4E10.0) 
FORMAT  (9E5.0) 
FORMAT (3E10.0,A1, 
FORMAT  (3E10.0,A1, 
FORMAT (34H0PROGRA 
FORMAT (1X,1PE12.5 
FORMAT (10H    HOADWA 
FORMAT  (10H    NUMBER 
1 ,  15X,  1P2E13.4)) 

3004  JORMAT(10H  NUMBER 
1,  15X,  1P2E13.U)) 

2005  FORMAT (22X,18HSOU 
17H  N0MBERf5X, 1HX1 
14X,1H1,2X,1P3E13. 

3005  FORMAT (22X,13HSG0 
17H  NUMBER, 5X,  1HX1 
14X,1H1,2X,  1P3E13. 

2006  FORMAT (3X, 12, 2X,1 

2007  FORMAT (10H  BAHRIE 
1  7H    NUMBER, 

3007  FORMAT  (10H  BARBIE 
1  7H    NUMBER, 

2008  FORMAT (9H  RECEIVE 
1« Y',12X,1HZ,11X,' 

30  08  FORMAT (9H  RECEIVE 
1'Y',12X,1HZ,11X,' 
20  10  FORMAT (27H  INSUFF 
20  11  FORMAT  (30H  INSUFF 
2012  FORMAT(18H  ABSORB 
A2X,1HZ12X,5HWIDTH 

2015  FORMAT (5X,23HOPTI 
X  (/5X,'CONS 

2016  FORMAT(1X,1PE12.5 
2020    FORMAT ('OVEHICLE 

10. ») 
20  30    FCBMAT{»  OVEHICLE 

10    65.  ') 
3020    FORMAT {'OVEHICLE 

150.') 


,  (GAHA(J,I)  ,1=1, NR) 

ERROR    DURING    GAMMA    INPUT 
CE 

EFINITION   CHANGES 
GO    TO    770 


EQ.1)     RETURN 


X,A1,10X,25A2) 

5X,A1,9X,5A8) 

9X,5A8) 


1X,I1,7X,5A8) 

1X,F5.0,3X,5A8) 
M    INITIALIZATION   PARAMETERS) 
,I10,5X,25A2) 
Y       ,I3,5X,5A8) 
0F13X,  5HVEH/H8X,3HMPH/5H    i'Y?E,I2,4H    VEH/(3X,I2 

OF13X,5HVEH/H8X,4HKHPH/5H    TYPE, 12, 4H    VEH/(3X,I2 


RCE  COORD  IN  FT/ 

2X, 1HY12X,1HZ,9X,'GRADE' 

Q,l5,5X,5A8) 

RCE  CCORD  IN  M  / 

2X,1RY12X,1HZ,9X,»GRADE' 

<J,I5,5X,5A8) 

P3E13.4,I5,5X,5A8) 

E   I3,2X,1H(A1,1H)  ,4X,19 

5X,1HX12X,1HY12X,1HZ/'IX, 

R      I3,2X,1U  (A1,  1H)  ,4X,19 

5X,1HX12X,1HY12X,1HZ/4X, 

R13X,20HRECEIVER   CCORD    I 

IC',6X, 'COMMENTS*) 

B14X,20HRECEIV3R    COORD   I 

IC  ,6X, 'COMMENTS') 

ICIENT  ROAD  SECTIONS) 

ICIENT  BARRIER  SECTIONS) 

IRG  STRIP   I3,2X,1H(A1,1 

/4X,1H12X,1P4E13.4/4X,  1H 

CNAL    NOISE    SPECTRUM, 

IANTS    :  »,9F7.1/5X,  'STD. 

,I10,5X,14A4) 

SPEED    SUPPLIED    IS    LESS   T 


,3X, 'COMMENTS'/ 


,3X, 'COMMENTS'/ 


HBARRIER    COORD    IN    FT/ 
1H1,2X,  1P3E13.4,5X,  5A8) 
H3.\  BRIER    COORD    IN    M    / 
1H1,2X,1P3E13.4,5X,  5A8) 
N  FT/7H    NUM3ER5X, 1HX12X, 

N  a    /7H    NUM3ER5X, 1HX12X, 


H)//5H    PT      7X,1HX12X,1HY1 
22X, 1P3E13.4,5X,5A8) 

DEV.     :»,9F7.1)) 

HAS  30  MPH.  ADJUSTED  TO  3 


SPEED  SUPPLIED  IS  GREATER  THAN  65  MPH.  ADJUSTED  T 
SPEED  SUPPLIED  IS  LESS  THAN  50  KMPH.  ADJUSTED  TO 


SUBROUTINE  INPUT:  LISTING  (Continued) 


E-15 


0297  3030    FORMAT ('OVEHICLE    SPEED    SUPPLIED    IS    GREAT5B   THAN     105    KMPH.     ADJOSTED 

1    TO    105.') 

0298  2050    F0RKAT(F4.2„16(1X,I2)  )  t 

0299  2051      FORMAT  (3X,  12,  2X,1  P3E13- <i,  0PF7- 1 ,  5X,  5A8) 

0300  2060    FOEMAT('0*    *    INPUT    ERROR    *    *  '/'OALPHA  (•  ,12,  •  ,  •  ,  12,  ■ )     HAS    3SEN',  l 

1  •    DEFINED    MORE    THAN    ONCE.')  i 

0301  2070    FORMAT ('ORECEIVER    DEFINITION    HAS    BEEN    MODIFIED,    BUT    NO    • ,  i 

1  •  CORRESPONDING    ALPHA    DATA    IS    SUPPLIED    -    RON    TERMINATED.')       j 

0302  4000    FORMAT (1H1,10X,'A    LPHA  TAB!    E'/' ONRC/NR' ,2016) 

0303  4001    FOEMAT(1X,I2,5X,20F6.2) 

0304  4002  FORMAT  (1H  ) 

0305  END 
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PURPOSE: 


SUBPROGRAMS 
USED: 


E.2   SUBROUTINE  CHECK  (IERR) 

To  check  for  intersection  of  roadways  and  barriers  or 
ground  strips*  If  intersection  exists,  the  program 
would  return  with  an  error  code  and  execution  would 
be  terminated. 

KCUT  (XI,  X2,  X3,  X4) 
REPLCE  (X2,  XI) 


I.N)  ) 
l,N)  ) 


X,Y  coordinates  of  roadway  segments 


VARIABLES:     Input  Parameters 

NR  -  Number  of  roadways 

NRSMl(NR)  -  Number  of  roadway  segments  in  each  roadway 

RX(M, 

RY(M! 

NB  -  Number  of  barriers 

NBSMl(NB)  -  Number  of  segments  in  each  barrier 

BX(IBAR,ISEG)lXjY  Coordinates  of  barrier  segments 

BY(IBAR,ISEG)J 

NG       -  Number  of  ground  strips 

XXGl(IGRA,I)f 

XXG2(IGRA,I) 

Subroutine  Parameters 


X,Y  coordinates  of  ground  strips 


XR1(I)    -  Point  1  of  roadway  segment 
XR2(I)    -  Point  2  of  roadway  segment 
XBl(I)    -  Point  1  of  barrier  segment 
XB2(I)    -  Point  2  of  barrier  segment 
XG1(I)    -  Point  1  of  ground  strip 
XG2 ( I )    -  Point  2  of  ground  strip 
Output  Parameters 
IERR     -  Error  code 

IERR  =1,  if  barrier  intersects  roadway 

=  2,  if  oround  strip  intersects  roadway 
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SUBROUTINE  CHFCK  (Continued) 
RESTRICTION:   None 

SIZE:  1422 

REFERENCE:  None 

C       CHECK  02/78         SAI    MOD 

0001  SUBROUTINE    CHECK(IERR) 

0002  IMPLICIT    REAL+8    (A-H,0~2) 

0003  CCMMON/INOU/INPT,  ICUT 

0004  COi!i:iOS/STOREl/BX{20,11)  ,  BY  (20  , 1 1 )  ,BZ  (20,  1 1)  r  I  BLAST  (20)  , NBSM1  (20) 
000  5  CCaaON/STORS2/XXGl  (10,2)  ,YYG1  (10,2)  ,Z2G1(10,2)  ,BGS(10)  ,  IDOM(10) 

0006  CCMMON/STORE3/RX(20,11)  ,RY(20,11)  ,BZ(20,1  1)  ,NRS81  (20> 

0007  COMMON/INPT2/NR,NE,NG 

0008  DIMENSION    XR1  (2)  ,  XR2  (2) 

0009  DIMENSION    XB1  (2)  ,  XB2  (2)  ,  XG1  (2)  ,XG2  (2) 

0010  IERR  =  0 

0011  DO    40    M=1,NR 

0012  Xhl  (1)     =    RX(M,1) 

0013  XR1  (2)     =    RY  (M,1) 

0014  NLIM    =    NRSM1  (M)     +     1 

0015  DO   40    N=2,NLIM 

0016  XB2(1)    =    RX(M,N) 

0017  XR2(2)    =    RY  (M,N) 

0018  IF    (NB.EQ.O)     GO  TC    20 

0019  DC    10    IBAR=1,NB 

0020  XB1  (1)     =    BX  (IBAR,  1) 

0021  X31  (2)     =    BY  (IBAR,  1) 

0022  NLBIM    =    NBSMl(IBAE)     +    1 

0023  DO    10    ISEG=2,NLBIM 

0024  XB2(1)     =    BX(IBAR,ISEG) 

0025  XB2(2)     =    BY(IBAE,ISEG) 

0026  IF    (KCUT(XR1,XR2,XB1,XB2)  .NE.  1)     GO    TO    5 

0027  "WRITE  (IOOT,  1006)  M  ,N, IBAR, ISEG 

0028  I£RR=1 

0029  5  CALL    fi£PLC£(XB2,XE1) 

0030  10         CONTINUE 

0031  20         IF    (NG.EQ.O)     GO   TO    35 

0032  DO   30    IGRA=1,NG 

0033  XG1(1)    =    XXG1(IGRA,1) 

0034  XG1  (2)     =    YYG1(IGRA,1) 

0035  XG2(1)     =    XXG1(IGRA,2) 

0036  XG2(2)    =    YYG1(IGRA,2) 

0037  IF    (KCUT(XR1,XR2,  XG1,XG2)  .NE.1)     GO   TO   30 

0038  WEITE(IOUT,10Q8)M,N,IGRA 
0C39  IERR=2 

0040  30         CONTINUE 

0041  35         CALL    REPLCE  (XR2,XE  1) 
0C42  40         CONTINUE 

0  043  RETURN 

0044  1006    FORMAT ('OILLEGAL    BARRIER    INTERSECTS    ROADW AY  •  ,  5X, « R    »,I2,2X 

1,3HRS    I2,2X,2HB  l2,2X,3aBS   12) 

0045  1008   FORMAT  {'OILLEGAL    GROUND    STRIP   INTERSECTS    ROADWAY1  ,5X, 2 

1riR   I2,3HRS    12, 2X,  4HAGS    12) 

SUBROUTINE  CHECK:  LISTING 
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PURPOSE 


SUBPROGRAMS 
USED: 

VARIABLES: 


E.3   SUBROUTINE  INTER  (NR,  IQ) 

To  determine,  by  interpolation,  vehicle  emission  and 
corresponding  standard  deviation,  given  a  certain  road- 
way, vehicle  type  and  speed. 

BLOCK  DATA  (  Transferred  through  COMMON/CONSTS/) 

Input  Parameters 

-  Roadway  number 

-  Vehicle  type  number 


NR 

IQ 

C0(NF,NQ) 

Cl(NF.NQ) 


Constants  obtained  by  non-linear 
regression,  using  the  following 
equation: 

L(V)  =  CO(IF.IQ)  +  Cl(IF.IQ)  *  log  (V) 


where 


V    =  speed  at  25,  35,  45,  55  &  65  mph 
L(V)  =  sound  level  at  V 


S0(NF,NQ)      Standard  deviations  obtained  by  similar 
method  as  above. 

NQS(NR,IQ)  -  Number  of  traffic  flow  conditions 
XMPH       -  Speed  at  which  interpolation  is  done 
Subroutine  Parameters 


V 
INDEX 


MULT 


-  Same  as  XMPH(NR.IQ) 

-  Position  in  arrays  where  the  calculated 
emission  level  and  the  corresponding 
standard  deviation  are  stored 

-  Factor  to  be  multiplied  to  obtain  INDEX 
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SUBROUTINE  INTER  (NR,  IQ)  (Continued) 

Output  Parameters 

XLREF(INDEX)-  Value  of  reference  acoustic  intensity 

CQ( INDEX)   -  Value  of  reference  standard  deviation  factor 

RESTRICTION:   The  constants  for  vehicle  types  1  -  3  and  their  standard 
deviations  are  provided  in  the  program.  If  a  new  type 
of  vehicle  is  introduced,  its  corresponding  constants 
and  standard  deviations  must  be  read  in  from  cards.  See 
Subroutine  INPUT. 

REFERENCES:   Ma,  Y.  Y.,  and  Rudder,  F.  F.,  Jr.:  "Statistical  Analysis 
of  FHWA  Traffic  Noise  Data,"  U.S.  Department  of  Transporta- 
tion, Federal  Highway  Administration,  Office  of  Research, 
Report  No.  FHWA-RD-78-64,  July  1978. 


SIZE: 


882 


0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 


10 


INTER 

SUBROUTIN 
IMPLICIT 
COMMON    /C 
COHHON/ST 
COKMON/DR 
COMMON    /I 
DO    10    IF= 
ceo  =   CO ( 
CC1    =    C1 ( 
SSO    =    S0( 
MULT    =    5 
XQQ   =    NQS 
DO    10    1=1 
V    =    XMPH( 
INDEX    =    N 
XLREF1    = 
XL2ZF(IND 
CQ(INDEX) 
CONTINUE 
EETORN 
END 


03/78         S3lI    MOD 
E    INTER(KB,IC.) 
REAL*8     (A-H,0-Z) 
ONSTS/CO  (9,4)  ,C1  (9,  4), SO  (9,4) 
CRE4/XMPH(20,5,4)  ,VEXPH  (20,5,4) 
IV2/NQS(20,4) ,NF 
NT2R  1/xLREF  (3600)  ,CQ  (3600) 
1,NF 
IF,IQ) 
IF,IQ) 
IF,IQ) 

*    ((IF-1 )     +    9*(IQ-1) ) 
(NE,IQ) 
,NQQ 
NR,I,IQ) 

R  +  20*{  (I-1)+HULT) 
CCO  +  CC  1*DLOG10(V) 
EX)     =    10.    **    ((XLBEF1-66.)/10-) 

=    DEXP(0.5*(SSO*0.23026)**2) 


SUBROUTINE  INTER:  LISTING 
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E.4 


SUBROUTINE  BLOCK  DATA 


PURPOSE:  To  provide  a  data  ^lock  of  coefficients  for  the  interpolation 
polynomials  used  by  subroutine  INTER  in  calculating  the 
vehicle  noise  emission  characteristics. 


SUBPROGRAMS 
USED: 

VARIABLES: 


None 


C0(NF,NQ)  -  Constant  terms  in  the  vehicle  sound  level 
interpolation  polynomial  for  the  frequency 
bands  NF  and  vehicle  type  NQ. 

C1(NF,NQ)  -  Coefficients  of  the  log  term  in  the  vehicle 
sound  level  interpolation  polynomial 

S0(NF,NQ)  -  Constant  terms  in  the  vehicle  sound  level  stand- 
ard deviation  interpolation  polynomial  for  the 
frequency  band  NF  and  the  vehicle  type  NQ. 

INPT     -  Constant  specifying  the  input  device  to  be  used 
by  the  prediction  code  (5  denotes  a  card  reader) 

IOUT     -  Constant  specifying  the  input  device  to  be  used 
by  the  prediction  code  (6  denotes  a  line  printer) 

RESTRICTIONS:  The  constants  C0(NF,NQ),  CI(NF,NQ),  S0(NF,NQ)  are  stored 
as  follows: 

C0(1,1),  C0(2,1),...C0(9,1);  C0(1 ,2) , . . .C0(9,2) ; 
C0(1,3),...C0(9,3);  etc. 

The  user  should  note  that  all  constants  relating  to 
the  type  4  vehicle  (NQ=4)  are  set  to  zero  unless  they 
are  defined  by  the  user  upon  input. 

SIZE:        0 

REFERENCES:    See  Section  A. 2  of  Appendix  A,  Subroutine  INTER  and 
Subroutine  INPUT. 
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C       BLOCK   DATA         03/78         SAI    HOr 

0001  BLOCK    DATA 

0002  IMPLICIT    REAL*8    (A-H,0-Z) 

0003  COMMON   /CONSTS/CO  (9,4)  ,C1  (9,  4)  ,S0  (9,4) 

0004  COHMON/INOO/IBPT,ICUT 

0005  COMMON    /OPTION/METIN,METOUT,IB£FL 

0006  CCMMON    /TABLE/GAMA  (15,20)  ,IFIBST 

0007  DATA    INPT/5/,  1001/6/ 

0008  DATA    METIN/0/,METCOT/C/,IBEFL/1/,GAHA/300*0.0/,IFIHST/0/ 

0009  DATA   CO/4.  80, -2. 14, -3.  17, -13.  21,  1  0.  84  ,9.  8  3,- 1  8.  26,-7.20,- 18.  21, 

2  42.62,80.61,56.9  4,52.77,28.22,22.32,33.0  8,3  5.16,34.90, 

3  22.06,44.88,52.39,33.76,11.00,-1.8  6,-1.19,3.49, 15.70, 

4  9*0.0/ 

0010  DATA  C1/38. 05,27.  18,32.61,40.76,29.89,32.61,48.92,38.05,40.76, 

2  24.56,-12.92,6.19,12.56,28.70,33.60,25.59,20.61, 15.50, 

3  33.91,5.48,6.90,  21.12,36.18,44.67,43.93,36.54,24.77, 

4  9*0.0/ 

0011  DATA  S0/9*2.5, 

2  2.84,5.20,3.73,4.45,3.82,3.44,3.11,3.42,3.39, 

3  3.37,4.72,4.76,5.23,4.23,4.3  9,4.04,3.82,3.85, 

4  9*0.0/ 

0012  END 


BLOCK  DATA:  LISTING 
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E.5   SUBROUTINE  COLIN  (XIV,  X2V,  X3V)  Continued 


PURPOSE 


SUBPROGRAMS 
USED: 


The  subroutine  checks  to  see  if  the  point  X3V  is  colinear 
with  the  points  XIV,  X2V  in  the  x-y  plane.  The  x-y  co- 
ordinates of  the  point  X3V  are  altered  by  the  subroutine 
so  that  the  point  X3V  is  not  colinear  with  points  XIV, 
X2V,  if  the  points  are  judned  to  be  collinear. 

IAREA  (XIV,  X2V,  X3V),  ANGLE  (XIV,  X2V,  X3V) 


VARIABLES:     Input  Parameters 

X1V(I),  X2V(I),  X3V(I)  -  Three  points  in  the  x-y  plane 
defined  by  their  components, 
x  -  component  I  =  1 
y  -  component  1=2 

Subprogram  Parameters 

ANG  -  The  angle  between  the  line  segments  (XIV, X3V) 
and  (X2V,  X3V). 

Output  Parameters 

X3V(I)  -  The  components  of  a  point  in  the  x-y  plane, 
X3V(I),that  is  near  to  the  input  values  X3V(I) 
but  that  is  not  considered  by  the  routine  to  be 
colinear  with  the  points  XIV,  X2V.  (See 
RESTRICTIONS). 


RESTRICTIONS: 


The  criteria  used  to  judge  whether  or  not  X3V  is  colinear 
with  XIV,  X2V  is  the  area  of  the  triangle  formed  by  the 
points  XIV,  X2V,  X3V  and,  possibly,  the  magnitude  of 
the  variable  ANG. 
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SUBROUTINE  COLIN  (XIV,  X2V,  X3V)  Concluded 

ACCURACY:     That  of  the  criteria. 

SIZE:         738 

REFERENCES:    See  Subprograms  IAREA  and  ANGLE. 


SUBROUTINE    COL  IN (XI V  ,X2V  ,X3V J 
C    CHECK   WHETHER    RECEIVER    IS  CO-LINEAR    hltH   ROADWAY    SEGMENT 

IMPLICIT    REAL*S     (A-H»0-2> 

DHENSI3N    X  UC2).<2V12).X3V(2> 

IF(  IAREA  (XIV, X2V.X3VJ.EQ.OJ    GO    TO    10 
h    ANG=ANGLECX1V,X2V,X3V) 

IFCAN&- GE.  2.6E-5J    RETURN 
10    X3V(1)=X3VC1)*1 .0 

IFUARFA(X1V«X2V»X3V).EQ.0)    GO    TO    20 

ANGSANGLE(X1V,X2V,X3V1 

IF(ANS    GE.2.&E-5  >    RETURN 
2H     X3V(2)=X3VC2)*1 .0 

IF  UARFA(XlVf  X2V.X3VI.EQ.U)    GO    TQ    5 

RETURN 

END 


SUBROUTINE  COLIN:  LISTING 
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E.6  SUBROUTINE  DEGEN  (XIV,  X2V,  X3V,  X4V,  X5V,  LOC) 


PURPOSE: 


This  subroutine  preprocesses  data  for  subroutine  BLOCN 
to  ensure  that  degenerate  geometrical  alignments  be- 
tween the  points  XIV,  X2V,  X3V  and  a  line  segment  X4V, 
X5V  that  may  confuse  the  logic  of  subroutine  BLOCN  do 
not  occur.  Physically,  the  line  segment  defined  by  the 
x(I=l)  and  y(I=2)  coordinates  of  the  points  X1V(I)  and 
and  X2V(I)  represents  a  road  segment,  the  point  X3V(I) 
represents  a  receiver,  and  the  line  segment  defined  by 
the  points  X4V ( I )  and  X5V(I)  represent  either  a  barrier 
or  an  absorption  ground  strip. 


SUBPROGRAMS 
USED; 


THIS  SUBROUTINE  SHOULD  BE  USED  ONLY  AS  A  PREPROCESSOR 
FOR  SUBROUTINE  BLOCN. 

IAREA  (XIV,  X2V,  X3V),  M0VE2  (XIV,  X2V,  X3V,  DELTA,  IERR) 


VARIABLES:     Input  Parameters 

X1V(I),  X2V(I)  -  Points  defining  a  road  segment  location 
in  the  x(I=l),  y(I=2)  plane. 

X3V(I)  -  A  point  defining  the  receiver  location  in  the 
x(I=l),  y(I=2)  plane. 

X4V(I),  X5V(I)  -  Points  defining  a  barrier  or  ground 
strip  location  in  the  x,y  plane.  See  Output 
Parameters . 

Output  Parameters 

LOC   A  logic  parameter  indicating  the  relative  align- 
ment of  the  line  segment  (X4V,  X5V)  with  the  line 
segments  (XIV,  X3V)  and  (X2V,  X3V).  LOC  =  0  or 
3  or  5. 
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SUBROUTINE  DEGEN  (XIV,  X2V,  X3V,  X4V,  X5V,  LOC)  Continued 

LOC  =  0  indicates  that  both  point  X4V  and  point 
X5V  are  colinear  with  the  line  segments  (XIV,  X3V) 
or  (X2V,  X3V). 

LOC  =  3  indicates  that  point  X4V  is  colinear  with 
(XIV,  X3V)  and  that  point  X5V  is  colinear  with 
(X2V,  X3V)  or  that  point  X4V  is  colinear  with 
(X2V,  X3V)  and  that  point  X5V  is  colinear  with 
(XIV,  X3V).  That  is,  the  line  segment  (X4V,  X5V) 
exactly  blocks  the  (x,  y)  plane  line-of-siaht  from 
the  receiver  X3V  to  the  roadway  (XIV,  X2V). 

LOC  =  5  indicates  that  either  point  X4V  or  X5V 
was  determined  to  be  colinear  with  one  of  the  seg- 
ments (XIV,  X3V)  or  (X2V,  X3V)  or  neither  point 
X4V  or  X5V  was  colinear  with  one  of  the  segments 
(XIV,  X3V)  or  (X2V,  X3V).  If  either  X4V  or  X5V 
was  determined  to  be  colinear,  the  point  is  relo- 
cated by  subroutine  M0VE2  decreasing  the  length  of 
the  segment  (X4V,  X5V)  by  1  foot. 

X4V(I),  X5V(I)  -  If  LOC  =  5,  either  X4V(I)  or 
X5V(I)  may  be  relocated  as  indicated  above  so  that 
X4V(I)  or  X5V(I)  is  not  colli near  with  the  segments 
(XIV,  X3V)  or  (X2V,  X3V). 

RESTRICTIONS:  This  subroutine  should  be  used  only  as  a  preprocessor 
for  subroutine  BLOCN.  See  listing  of  subroutine  GEOMRY 
for  usage. 

If  an  error  occurs  in  subroutine  M0VE2,  the  following 
message  is  printed:  "ERROR  IN  M0VE2".  This  error  will 
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SUBROUTINE  DEGEN  (XIV,  X2V,  X3V,  X4V,  X5V,  LOC)  Concluded 

not  be,  quite  likely,  fatal  but  the  user  should  check 
results  closely. 

ACCURACY:  See  RESTRICTIONS. 

SIZE:  1684 

REFERENCES:    None. 

SUBROUTINE  DEGEN:  LISTING 

C      DEGEN  03/78         SAI    MOD 

0001  SUBROUTINE    DEGEN  (  X  1V  ,X2V  ,X3V,  X4V,X5V,  LOC) 

0002  IMPLICIT    REAL*8    (A-H,0-Z) 

0003  COMMON/INOO/INPT, IODT 

0004  DIMENSION    X  1  V  (2)  ,  X2V  (2)  ,  X3V  (2)  ,X4V  (  2)  ,X5V  (2) 

0005  LOC=5 

0006  IF(IAREA(X4V,X1V,  X3V)  .EQ.O)     GO   TO    10 

0007  IF(IAREA(X4V,X2V,  X3VJ.EQ.0)     GO    TO    40 

0008  IF(IAREA  (X5V,X1V,  X3V)  .EQ.O)     GCTG45 

0009  IF(IAREA  (X5V,X2V,  X3V)  .EQ.O)     GO   TO   45 

0010  RETURN 

0011  10    IAREA1=IAREA(X5V, X2V,X3V) 

0012  IF(IAREAI.EQ.O)    GO    TO   30 

0013  IAREA2=IAREA(X5V,X3V,X1V) 

0014  IAREA3=IAREA(X5V,  X1V,X2V) 

0015  IF(IAREA1.EQ.IARKA2.AND.IAREA1.EQ.IAREA3)     GO    TO    55 

0016  20    LOC=0 

0017  RETURN 

0018  30         LOC=3 

0019  RETURN 

0020  40    IAREA1  =  IAREA(X5V,  X3V/X1V) 

0021  IF(IAREAI.EQ.O)    GC    TO    30 

0022  IAKEA2  =  1AREA(X5V,X1V,X2V) 

0023  IAKEAi=IAREA(X5V,X2V,X3V) 

0024  IF(IAREA1.EQ.IAREA2.AND.IAREA1.EQ.IAR£A3)     GO    TO    55 

0025  GO   TO    20 

0026  45    IAEEA1=IAREA(X4V,  X3V,X1V) 

0027  IAREA2  =  IAREA(X4V,  X1V,X2V) 

0028  IAREA3  =  IAREA{X4V,  X2V,X3V) 

0029  IF(IAREA1.EQ.IAFEA2.AND.IAREA1.2Q.IARFA3)     GO    TO    60 

0030  GO   TO    20 

0031  55  CALL  MOVE2 (X4V,X4 V,X5V,- 1 .0, IERR) 

0032  IP(IERfi.EQ.4)  WRITE (IOUT, 1000) 

0033  RETURN 

0034  60    CALL   MOVE2 (X5V, X5V ,X4V,-1 .0, IEEE) 

0035  IF<IERR.EQ.4)     WRITE  (IOUT, 1000) 

0036  RETURN 

0037  1000  FORMAT (1H  ,  14HERR0B  IN  M0VE2) 

0038  END 
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E.7   SUBROUTINE  BLOCN  (XIV,  X2V,  X3V,  X4V,  X5V,  X6V,  LOC)  Continued 

PURPOSE:      This  subroutine  calculates  the  alignments  in  the  x-y  plane, 

of  one  line  segment  relative  to  the  alignment  of  another  line 
segment  and  a  point.  Physically,  the  line  segment  defined 
by  the  x(I  =  1) ,  y(I  =  2)  coordinates  of  the  points  X1V(I) 
and  X2V( I)  represents  a  road  segment,  the  point  X3V(I) 
represents  a  receiver,  and  the  line  segment  defined  by 
the  points  X4V( I )  and  X5V(I)  represent  either  a  barrier 
or  an  absorptive  ground  strip. 

The  subroutine  output  is  a  point  X6V(I)  in  the  x-y  plane 
and  a  configuration  index,  LOC.  See  Figure  F-2. 
If  LOC  =  0,  the  line  segment  defined  by  X4V,  X5V  is  out- 
side the  triangle  formed  by  XIV,  X2V,  X3V.  In  this  case, 
the  subroutine  assigns  no  values  to  X6V. 

If  LOC  =  1,  this  line  segment  defined  by  X4V,  X5V  inter- 
sects the  line  segment  defined  by  XIV,  X3V.  In  this  case, 
the  subroutine  assigns  X6V  as  the  intersection  point  (in 
the  x-y  plane)  of  the  line  segment  XIV,  X2V  and  the  line 
defined  by  the  points  X3V,  X4V  or  X3V,  X5V. 

If  LOC  =2,  the  line  segment  defined  by  X4V,  X5V  intersects 
the  line  segment  defined  by  X2V,  X3V.  In  this  case,  the 
subroutine  assigns  X6V  as  the  intersection  point  (in  the 
x-y  plane)  of  the  line  segment  XIV,  X2V  and  the  line 
defined  by  the  points  X3V,  X4V  or  X3V,  X5V. 

If  LOC  =  3,  the  line  segment  defined  by  X4V,  X5V  inter- 
sects both  line  segments  defined  by  XIV,  X3V  and  X2V, 
X3V  (ie,  the  road  segment,  as  viewed  from  point  X3V,  is 
completely  covered  by  the  line  segment  X4V,  X5V).  In 
this  case,  the  subroutine  assigns  no  values  to  X6V. 
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XIV 


X6V 


X2V 


X5V 


X3V 


LOC 
LOC 
LOC 
LOC 
LOC 


0  denotes  that  the  line  X4V,  X5V  is  outside  the  triangle 
XIV,  X2V,  X3V. 

1  denotes  that  the  line  X4V,  X5V  intersects  the  line  XIV. 
X3V. 

2  denotes  that  the  line  X4V,  X5V  intersects  the  line  X2V. 
X3V. 

3  denotes  that  the  line  X4V,  X5V  intersects  both  lines 
XIV,  X3V  and  X2V,  X3V, 

4  denotes  that  the  line  X4V,  X5V  is  completely  inside  the 
triangle  XIV,  X2V,  X3V. 


FIGURE  E-2.  SUBROUTINE  BLOCN:  RELATIVE  GEOMETRY 
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SUBROUTINE  BLOCN  (XIV,  X2V,.  X3V,  X4V,  X5V,  X6V,  LOC)  Continued 

If  LOC  =  4,  the  line  segment  defined  by  X4V,  X5V  is  inter- 
ior to  the  triangle  defined  by  the  points  XIV,  X2V,  X3V. 
In  this  case,  the  subroutine  assigns  X6V  as  the  inter- 
section point  on  the  line  segment  XIV,  X2V  of  the  line  from 
X3V  to  either  X4V  or  X5V  that  is  closest  to  the  point  XIV. 
SEE  RESTRICTIONS 


SUBPROGRAMS 
USED: 


VARIABLES 


KCUT(X1,  X2,  X3,  X4),  TRI(X1,  X2,  X3,  X4,  X5,  KTRI) 
INTCPT(X1,  X2,  X3,  X4,  X5),  SEE  RESTRICTIONS, 
SEE  SUBROUTINE  DEGEN 

Input  parameters 

X1V(I),  X2V(I)  -  points  defining  a  road  segment  locatio* 

in  the  x(I=l),  y(I=2)  plane. 

X3V( I )  -  a  point  defining  the  receiver  location  in  the 
x(I  =  1),  y(I  =  2)  plane. 

X4V(I),  X5V(I)  -  points  defining  a  line  segment  location 

in  the  x(I  =  1),  y(I  =  2)  plane. 

Output  parameters 

X6V( I )  -  a  point  on  the  line  segment  defined  by  X1V(I), 

X2V(I)  that  represents  the  intersection  of  the  line  defined 

by  either  the  points  X3V,  X4V  or  X3V,  X5V.  (SEE  PURPOSE) 

LOC  -  a  parameter  describing  the  configuration  (SEE  PURPOSE) 

Subprogram  parameters 

KTRI   -  A  parameter  assigned  by  subprogram  TRI. 

KTRI  =  0  if  X4V  is  either  exterior  to  the  tri- 
angle XIV,  X2V,  X3V  or  lies  on  a  line  segment 
XIV,  X2V;  XIV,  X3V;  or  X2V,  X3V. 
KTRI  =  1  if  X4V  is  interior  to  the  triangle  XIV, 
X2V,  X3V. 
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SUBROUTINE  BLOCN  (XIV,  X2V,  X3V,  X4V,  X5V,  X6V,  LOC)  Concluded 

XAV(I)  -  a  point  on  the  line  segment  defined  by  X1V(I), 

X2V( I )  that  represents  the  intersection  of  the 

line  defined  by  X3V,  X4V. 
XBV(I)  -  a  point  on  the  line  segment  defined  by  X1V(I), 

X2V(I)  that  represents  the  intersection  of  the 

line  defined  by  X3V,  X5V. 


RESTRICTIONS: 


ACCURACY: 

SIZE: 

REFERENCES: 


The  subprogram  BLOCN  is  used  by  the  subprograms  ENDPT  and 
GEOMRY  to  establish  the  basic  geometric  relationship 
between  a  roadway  segment  (XIV,  X2V);  a  receiver  location, 
X3V;  and  a  potentially  intervening  barrier  or  ground 
strip  segment  (X4V,  X5V).  Geometric  configurations 
between  the  five  points  defined  by  XIV,  X2V,  X3V,  X4V,  and 
X5V  can  arise  that  may  either  produce  erroneous  results 
or  program  failure.  To  check  for  these  potential  problems 
and  to  avoid  the  possibility  of  calculating  erroneous 
results,  the  subprogram  DEGEN  is  used.  The  problem 
geometrical  configurations  are  associated  with  colinearity 
of  source-receiver  points  XI,  X2,  X3  with  barrier  and/or 
ground  strip  points  X4V,  X5V  or  if  the  points  X4V  and/or 
X5V  lie  on  the  boundary  of  the  triangle  formed  by  the 
points  XIV,  X2V,  X3V.  See  Figure  E-2. 

SEE  RESTRICTIONS. 

958 

None. 
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E.8   SUBROUTINE  MOVE  (XIV,  X2V,  X3V,  DELTA,  IERR)  Continued 


PURPOSE: 


SUBPROGRAMS 
USED: 


To  calculate  the  coordinates  of  the  point  X2V  that  lies 

on  a  line  passing  through  the  points  XIV,  X3V  and  is  a 

specified  distance,  DELTA,  from  the  point  XIV  in  (x,  y,  z) 
coordinate  space.   (See  VARIABLES,  DELTA). 

AMAG  (XI,  X2) 


VARIABLES:     Input  Parameters 

X1V(I),  X3V(I)  -  Points  in  (x,  y,  z)  coordinate  space 
defining  a  line, 

x  -  coordinate  I  =  1 

y  -  coordinate  I  =  2 

z  -  coordinate  I  =  3 

DELTA  -  The  distance  from  the  point  XIV  at  which  one 
desires  the  point  X2V  to  be  located  on  the  line 
XIV,  X  3Y.   If  DELTA  is  positive,  X2V  will  be  lo- 
cated along  the  line  defined  by  XIV,  X3V  in  the 
direction  from  X3V  to  XIV.   If  DELTA  is  negative, 
X2V  will  be  located  along  the  line  defined  by 
XIV,  X3V  in  the  direction  from  XIV  to  X3V.  If 
DELTA  is  zero,  X2V  will  coincide  with  XIV. 

Subprogram  Parameters 

TEMP  -  The  length  of  the  line  segment  defined  by  the 
points  XIV,  X3V. 

FCTR  -  The  ratio  of  DELTA  to  TEMP 

Output  Parameters 

X2V(I)  -  The  x,  y,  z  coordinates  of  the  point  X2V. 
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SUBROUTINE  MOVE  (XIV,  X2V,  X3V,  DELTA,  I  ERR)  Concluded 

TERR  -  An  error  indicator.   If  TEMP  is  greater  than 
zero  (i.e.,  XIV  and  X3V  do  not  coincide)  then 
IERR  =  0.  If  TEMP  is  equal  to  zero  (i.e.,  XIV 
and  X3V  coincide)  then  IERR  -  4  and  the  point  X2V(I) 
is  not  calculated  when  control  is  returned  to  the 
calling  program. 

RESTRICTIONS:  See  description  of  variable  IERR. 


ACCURACY: 


Not  applicable, 


SIZE: 


582 


REFERENCES:         The  point  X2V  is  calculated  using  the  vector  relation 
ff2     =    it     +     DELTA     r31 


r31   =  R31   /VR31  '  R31 


00Q2 

0003 

0005 
0uU6 

0009 

00  lu 

0011 
•0012 

0013 
-0*4* 


SUBROUTINE  M3VE(Xltf  ,X2V  ,X3V  .DELTA,  IERR} 
C    *3VE    EVDP3INT    JF    *3AD 

IMPLICIT   REAL*B     CA-HrO-Z> 
DIMENSION    X1V(3)»X2V(31VX3VC3) 
IERR- • 
TE4P*MAGfKl#f  <3#) 

if(tehp.eq.o.i  go  to  3 
fctr^oelta/tekp 

DO   2    1*1,3 

X2Mll»Xl/|I|»|iC  Wfl}-X3Vt  m»FCTR 

2  CONTINUE 
RETURN 

3  1ERR=4 
RETURN 
END 


SUBROUTINE  MOVE:  LISTING 
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E.9  SUBROUTINE  M0VE2  (XIV,  X2V,  X3V,  DELTA,  IERR)  Continued 


PURPOSE: 


SUBPROGRAMS 
USED: 


To  calculate,  in  the  x-y  plane,  the  coordinates  of  the 
point  X2V  that  lies  on  a  line  passing  through  the  points 
XIV,  X3V  and  is  a  specified  distance,  DELTA,  from  the 
point  XIV.  This  is  the  x-y  plane  analogue  of  subroutine 
MOVE. 

SQRT(X) 


VARIABLES:     Input  Parameters 

X1V(I),  X3V(I)  -  Points  in  the  x-y  plane  defining  a 
line. 

x  -  coordinate  I  =  1 
y  -  coordinate  I  =  2 

DELTA  -  The  distance  from  the  point  XIV  at  which  one 
desires  to  locate  the  point  X2V  on  the  line  de- 
fined by  the  points  XIV,  X3V.  If  DELTA  is  pos- 
itive, X2V  will  be  located  on  the  line  defined 
by  XIV,  X3V  in  the  direction  from  X3V  to  XIV. 
If  DELTA  is  negative,  X2V  will  be  located  along 
the  line  defined  by  XIV,  X3V  in  the  direction 
from  XIV  to  X3V.   If  DELTA  is  zero,  X2V  coincides 
with  XIV. 

Subprogram  Parameters 

TEMP  -  The  length  of  the  line  segment  defined  by  the 
points  XIV,  X3V. 

FCTR  -  The  ratio  of  DELTA  to  TEMP. 

Output  Parameters 

X2V(I)  -  The  x,y  coordinates  of  the  point  X2V. 
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SUBROUTINE  MOVE2  (XIV,  X2V,  X3V,  DELTA,  IERR)  Concluded 

IERR  -  An  error  indicator.  If  TEMP  is  greater  than 
zero  (i.e.,  XIV  and  X3V  do  not  coincide),  then 
IERR  =  0  and  the  coordinates,  X2V(I)  are  calcu- 
lated. If  TEMP  is  zero  (i.e.,  XIV  and  X3V  coin- 
cide), then  IERR  =  4  and  the  coordinates,  X2V(I), 
are  not  calculated. 

RESTRICTIONS:  See  description  of  variable  IERR. 


ACCURACY 


Not  applicable. 


REFERENCES:    See  Subroutine  MOVE, 


SIZE 


596 
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SJBRDHINE    H3JE2U1V  ,X2V  ,K3V  ,DELT  I,  IE  IRI 
C    MOVE    AN    ENDP01NTI2-D1MEKSI0N  ! 
IMPLICIT  REAL»8    <A-H,0-Z1 
DIMENSION    XI  V(2  )  ,X2  V(2)  ,X3V(2) 

1E*R=^ 

TEMP=DSQRTC(XltCl)-X3V(l  )  )**2*  (XIV  (2  l-X  3V  «  2H*»2> 

IFITEMP    EQ    U.OI    CO    TO    3 

FCTR  =  DELTA/TEMP 

03    2    I* It  2 

X2VC  1)«X1VC  11*1X1  V(I)-X3V(I  |)*FCTR 

2  CONTINUE 
RETURN 

3  lt*R=* 
RETURN 
EN* 


SUBROUTINE  M0VE2:  LISTING 
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E.10   SUBROUTINE  TRI  (XIV,  X2V,  X3V,  X4V,  X5V,  KTRI)  Continued 


PURPOSE: 


To  calculate  a  logic  number,  KTRI,  that  indicates  whether 
or  not  the  point  X4V  lies  within  or  on  the  boundaries  of 
a  triangle  in  the  x-y  plane  formed  by  the  points  XIV, 
X2V,  and  X3V.      (See  VARIABLES  and  RESTRICTIONS). 


SUBPROGRAMS 
USED: 


INTCPT  (XI,  X2,  X3,  X4,  X5);  KPOS  (XI,  X2,  X3) 


VARIABLES:     Input  Parameters 

X1V(I),  X2V(I),  X3V(I)  -  The  coordinates  of  three  points 
in  the  x-y  plane.  The  x-coordinate  is  denoted  by 
1=1;  the  y-coordinate  by  I  =  2. 

X4V(I)  -  A  point  in  the  x-y  plane  whose  location  relative 
to  the  triangle  formed  by  the  points  XIV,  X2V, 
X3V  is  to  be  determined. 

Output  Parameters 

X5V(I)  -  The  intersection  point  of  the  lines  through 
XIV,  X2V  and  X3V,  X4V. 

KTRI  -  A  logic  number  that  indicates  the  location  of 

X4V  relative  to  the  triangle  formed  by  the  points 
XIV,  X2V,  X3V. 

KTRI  =  1  If  the  point  X4V  lies  interior  to  or  on  the 

boundary  of  (excluding  the  point  X3V)  the  triangle 
formed  by  the  points  XIV,  X2V,  X3V. 

KTRI  =  0  If  the  point  X4V  coincides  with  the  point  X3V 
or  lies  exterior  to  the  triangle  formed  by  the 
points  X4V,  X2V,  X3V. 
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SUBROUTINE  TRI  (XIV,  X2V,  X3V,  X4V,  X5V,  KTRI)  Concluded 


RESTRICTIONS: 


The  intersection  point  X5V  is  always  calculated  and  re- 
turned to  the  calling  program.   If  KTRI  =  1  the  point 
X5V  lies  on  the  line  segment  defined  by  the  end  points 
XIV,  X2V  including  the  end  points.  If  KTRI  =  0  and 
X4V  does  not  coincide  with  X3V,  the  point  X5V  lies  on 
the  line  passing  through  the  points  XIV,  X2V.  If  the 
points  X3V  and  X4V  coincide  KTRI  =  0  and  X5V  is  project- 
ed to  a  point  beyond  2*10^  miles  from  the  point  XIV. 
(See  Subprogram  INTCPT).  Usage  of  this  subroutine 
should  recognize  these  restrictions. 


ACCURACY 


That  of  subprograms, 


SIZE: 


594 


REFERENCES: 


None. 


0401 

0002 

00*3 
QU  4 
0005 

0006 

0009 


SUBROUTINE    TR 1 1  XIV , X2V.X3V , X4V ,X5V ,KTR1 1 
C    FIND    IF    P3INT    IN    TUANGLE   AND    LOCATE    INTERCEPT 
IMPLICIT    REAL*3     U-H,0-Z) 

DIMENSION    XIV  (2  ),X2  V  (2  )  ,X3V  (2)  ,X4V  (2),X5V(2) 
CALL    INTCPTtXIV  ,X2V  ,X3V  ,X4V  ,X  5V  ) 
KTR1=0 

IF(KP0S(XlV,X2V ,X5V  )  .E0.01R  ETURN 
IF(KP0S(X3V,X5V.X4V).EQ.11KTRI=1 

RETURN 
END 


SUBROUTINE  TRI:   LISTING 
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SUBPROGRAMS 
USED: 

VARIABLES: 


E.ll  SUBROUTINE  INTCPT  (XIV,  X2V,  X3V,  X4V,  X5V)  Continued 

PURPOSE:      To  calculate  the  x-y  plane  intersection  point,  X5V(I), 

of  two  lines  defined  by  the  points  (X1V(I)),  and  (X2V(I)), 
and  (X3V(I)),  (X4V(I)).  The  subscript  I  =  1  for 
x-coordinates  and  I  =  2  for  y-coordinates. 

None. 

Input  parameters 

X1V(I),  X2V(I)  -  Points  in  the  x-y  plane  defining  a  line. 

X3V(I),  X4V(I)  -  Points  in  the  x-y  plane  defining  a  line. 

Subprogram  parameters 

AX,  AY  -  x-component  and  y-component  respectively,  of  the 

line  segment  defined  by  (XIV,  X2V). 
BX,  BY  -  x-component  and  y-component  respectively  of  the 

line  segment  defined  by  (X3V,  X4V). 
CI ,  C2  -  Algebraic  expressions  arising  in  the  derivation 

of  the  algorithm. 
D     -  The  value  of  the  2X2  determinant  formed  by  the 

x,y  components  of  the  two  line  segments. 

Output  parameters 

X5V( I)  -  The  (x,y)  coordinate  (I  =  1,  I  =  2,  respectively) 

of  the  intersection  point. 

If  either  line  segment  has  zerolength,  then  D  =  0  and 

a  division  by  zerowill  occur.  If  the  two  line  segments  are 

parallel  or  coincide,  D  =  0  and  a  division  by  zero  will 

2    -6   2 

occur.  If  D  <  10"  ft  ,  the  subroutine,  projects  the  point 

X5V  out  in  the  x-y  plane  somewhere  beyond  a  radius  of 

14 
2  X  10   miles  from  the  point  XIV.  Usage  should  recognize 

these  restrictions. 
ACCURACY:     See  Restrictions. 
SIZE:         738 


RESTRICTIONS 
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SUBROUTINE  INTCPT  (XIV,  X2V,  X3V,  X4V,  X5V)    Concluded 

REFERENCES:        The  algorithm  used  to  calculate  the  point  X5V,  is  derived 
by  writing  the  vector  equation  for  lines  passing  through 
the  points  (XIV,  X2V)  and  (X3V,  X4V)  and  solving  for  their 
common  point. 


0001  SU&RQUTlNE    I  «T:  f>  r  CX  1 V,  X2Vt  <3V  tX4VtX5VI 

C    FIND    INTERCEPT    OF    TWO   LINES    IN    A   PLANE 
IMPLICIT   REAL*8     (A-H,0-Z) 
DIMENSION    XI  *n  )vX2V(2).X3V(2)lX4Vi2ltXSV(2| 

Ax=x2vm-xmi  > 

AY=X2VC2)-X1V(2 ) 
BX  =  X4VC1)-X3VU  ) 
BY=X^VC2)-X3^(2) 
Cl-AY*X2Vtl)-AX*X2VC2! 

c2  =  by*x4v<1  »-bx*x*vc21 
d*ax*by-ay*bx 

IF(D**2  .LT.l*  E-61G0    TO    2 
X5V(1)=(AX*C2-3X*C1)/D 
X5V(2>=CAY*C2-BY«C1 ) /D 
RE  T  URN 
2       D*DSQRT(AX**2*ftY**2  I 

X5V(]  )=X1VUHUX/D  )»1.E*15 
X5VI2)  =  XlV(2)*tAY/D  )*1.E-»15 
RETURN 
END 


SUBROUTINE  INTCPT:  LISTING 


-0402 

0003 

0004 

00<»5 
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0007 
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0011 

0012 

0013 

4^14 

001S 

0016 

0017 

0018 

0019 
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E.12  SUBROUTINE  NRPT  (XIV,  X2V ,  X3V,  X4V ,  DIST)  Continued 

PURPOSE:     To  compute  the  point  X4V  on  a  line  defined  by  the  points 
XIV,  X2V  that  is  nearest  to  the  point  X3V.  The  "length  of 
the  line  segment  (X3V,  X4V)  is  the  distance,  DIST,  from  the 
point  X3V  to  the  line  defined  by  XIV,  X2V.  If  DIST  =0, 
then  DIST  is  set  equal  to  1  foot  prior  to  returning  to  the 
calling  program. 

SUBPROGRAMS 

USED:        DSOR  (XI, X2);  AMAG  (XI,  X2) 

VARIABLES:    Input  Parameters 

X1V(I),  X2V(I)  -  Points  in  x,  y,  z  coordinate  space  de- 
fining a  line. 

X3V(I)  -  A  point  in  the  x,  y,  z  coordinate  space. 

Subprogram  Parameters 

I  -  Subscript  denoting  coordinate 

x  -  coordinate,  I  =  1 

y  -  coordinate,  I  =  2 

z  -  coordinate,  I  =  3 

AV(I)  -  Components  of  vector  R^-, 

BV( I )  -  Components  of  vector  R3, 

AX,  AY,  AZ  -  Values  of  AV(1),  AV(2),  AV(3);  respectively. 

BX,  BY,  BZ  -  Values  of  BV(1),  BV(2),  BV(3);  respectively. 

TEMP  -  Square  of  length  of  line  segment  defined  by 
XIV,  X2V. 
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SUBROUTINE  NRPT  (XIV,  X2V,  X3V,  X4V,  DIST)  Concluded 

RATIO  -  An  expression  developed  in  the  derivation  of 
the  point  X4V(I)  in  terms  of  X1V(I),  X2V(I)  and 
X3V(I). 

Output  Parameters 

X4V(I)  -  A  point  on  the  line  defined  by  X1V(I),  X2V(I) 
that  is  nearest  to  the  point  X3V(I).  See  RESTRIC- 
TIONS. 

DIST  -  The  distance  from  the  point  X3V(I)  to  the  line  de- 
fined by  X1V(I),  X2V(I).  If  DIST  =  0,  the  subpro- 
gram sets  DIST  =  1  prior  to  returning  control  to 
the  calling  program.  See  RESTRICTIONS. 


RESTRICTIONS: 


If  the  points  XIV  and  X2V  coincide,  X4V  coincides  with 
XIV  and  DIST  is  the  distance  between  X3V  and  X4V.  If 
X3V  is  on  the  line  defined  by  XIV,  X2V  then.X4V  and  X3V 
coincide  and  DIST  =  1. 


REFERENCES: 


None, 


SIZE: 


796 
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E.13   SUBROUTINE  NR1  (XIV,  X2V,  X3V,  X4V,  DIST,  X5V,  DN1 ) 


PURPOSE: 


SUBPROGRAMS 
USED: 


To  calculate  the  point,  X5V,  on  the  line  segment  (XIV, 
X2V)  that  is  nearest  to  the  point  X3V  and  to  calculate 
the  distance  between  the  points  X3V  and  X5V. 

KPOS  (XI,  X2,  X3),  REPLACE  (XI,  X2),  AMAG  (XI,  X2) 


VARIABLES:     Input  Parameters 

X1V(I),  X2V(I)  -  Points  in  (x,  y,  z)  coordinate  space 
defining  a  line  segment  and  a  line. 

X3V(I)  -  A  point  in  (x,  y,  z)  coordinate  space. 

X4V(I)  -  The  point  on  the  line  passing  through  the  points 
XIV,  X2V  that  is  nearest  to  the  point  X3V. 

DIST  -  The  distance  from  the  point  X3V  to  the  line  pass- 
ing through  the  points  XIV,  X2V. 

Output  Parameters 

X5V(I)  -  A  point  on  the  line  segment  (XIV,  X2V)  that  is 
nearest  to  the  point  X3V. 

DN1  -  The  length  of  the  line  segment  (X3V,  X5V). 

RESTRICTIONS:  See  Subprogram  NRPT. 


ACCURACY 


Not  Applicable. 


SIZE 


736 


REFERENCES:    None 
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vl  SUBROUTINE    NRlC  XIV,  X2V  tX3V  ,X4V  ,DIST  *  *  tONll 
C    FIND   NEAREST    pQ1NT    TO   LINE    SEGMENT 

Sn  J I  IMPLICIT    *EAL*9     (A-H.O-Z) 

°°/|  DIMENSION    Xl¥mfX2VC3)tX3<M3I,X*¥m.X5mi 

°:J    t  lFCRP0Smv.X2tf,XlVI.EQ.HC0   TO    2 

^f  lF<KP0SfXlV,X«V,X2V)    EO. l)GO    TC    < 

0006  CALL    REPLCEU*V,X5tM 

0U07  DN1=DIST 

9^    *  RETURN 

^;;9  2    CALL    REPLCE  (XIV,  X5V  ) 

OOIO  GO    TO    6 

°°"  *    CA.l    UPLCE(<2/,<5/| 

uul2  6    DN1=AMAG(X5V,X3VI 

013  RETURN 

0014  END 


SUBROUTINE  MR1 :   LISTING 
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E.14  SUBROUTINE  ENDPT  (XIV,  X2V,  X3V,  X4V,  X5V,  X6V,  KTRIG,  IERR)  Continued 


PURPOSE: 


SUBPROGRAMS 
USED: 


To  calculate  the  (x,  y,  z)  coordinates  of  points  on  a 
roadway  segment  for  which  sound  propagation  may  or  may 
not  be  affected  at  a  receiver  location  by  an  intervening 
barrier  or  ground  strip.  (See  RESTRICTIONS). 

The  input  values  of  the  points  XIV,  X2V  define  the  initial 
roadway  segment.  The  point  X3V  defines  the  observer  location 
and  the  points  X4V,  X5V  define  the  location  of  a  barrier 
on  ground  strip. 

The  subroutine  calculates  the  index  KTRIG  and, as  necessary, 
the  point  X6V  on  the  line  segment  defined  by  the  input 
values  of  XIV,  X2V  so  that  if  KTRIG  =  0,  the  line  segment 
defined  by  the  output  values  of  XIV,  X2V  represent  a  road 
segment  with  a  clear  line  of  sight  to  the  receiver  X3V. 
If  KTRIG  =  0,  the  output  values  of  X6V  have  no  physical 
significance.  If  KTRIG  =  1,  the  line  segment  defined 
by  the  output  values  of  XIV,  X6V  represent  a  road  segment 
with  an  obstructed  (in  the  x-y  plane)  line-of-sight  to 
the  receiver  at  X3V  and  the  line  segment  defined  by  the 
output  values  of  X6V,  X2V  represent  a  roadway  segment  with 
a  clear  line-of-sight  to  the  receiver  at  X3V. 

The  subroutine  does  not  alter  the  input  values  of  XIV, 
X3V,  X4V,  and  X5V,  but  it  may  alter  the  input  value  of  X2V. 
Also,  the  points  X2V  and  X6V  may  coincide,  (see  VARl'ABLES 
and  RESTRICTIONS). 

REPLCE  (XIV,  X2V);  ZCOR  (XIV,  X2V,  X3V);  BLOCN  (XIV, 

X2V,  X3V,  X4V,  X5V,  X6V,  LOC);  MOVE  (XIV,  X2V,  X3V,  DELTA,  IERR) 
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SUBROUTINE  ENDPT  (XIV,  X2V,  X3V,  X4V,  X5V,  X6V,  DTRIG,  IERR)  Continued 

VARIABLES:     Input  parameters 

X1V(I),  X2V(I)  -  Points  in  x,  y,  z  coordinate  space 

defining  the  alignment  of  the  roadway 
segment. 
X3V(I)  -  A  point  in  x,  y,  z  coordinate  space  defining 

the  receiver  location. 
X4V(I),  X5V(I)  -  Points  in  x,  y,  z  coordinate  space 

defining  a  barrier  or  a  ground  strip. 

Subprogram  parameters 

ITRIG  -  An  index,  internal  to  the  subprogram,  that 

indicates  whether  or  not  the  input  value  of  the 
point  XIV  and  the  point  X6V  initially  calculated 
on  the  line  segment  (XIV,  X2V)  are  so  close  that 
the  significance  of  the  segment  (XIV,  X6V)  can 
be  ignored  in  judging  the  effect  of  the  strip 
(X4V,  X5V).  The  subroutine  considers  "close" 
to  be  a  distance  of  0.51  feet. 

LOC     An  index  generated  by  the  subroutine  BLOCN  that 
indicates  the  relative  location  of  the  roadway 
segment  and  the  receiver  to  the  barrier  or  ground 
strip. 

DELTA  -  A  distance  defined  as  either  -0.50  or  -0.51  feet 
and  used  by  subroutine  MOVE  to  shift  points. 

XDUM(I)-  A  dummy  point  initially  set  equal  to  X4V(I). 

Output  parameters 

KTRIG  -  An  index  of  whether  or  not  the  sound  from  a  road 
segment  may  be  attenuated  by  a  barrier  or  ground 
strip.  If  KTRIG  =  0,  the  segment  (XIV,  X2V) 
is  unaffected  by  the  strip  X4V,  X5V  (see  Output 
parameter  X2V( I) ) .  If  KTRIG  =  1,  the  line  segment 
(XIV,  X6V)  is  totally  affected  by  the  strip 
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SUBROUTINE  ENDPT  (XIV,  X2V,  X3V,  X4V,  X5V,  X6V,  DTRIG,  IERR)  Continued 

(X4V,  X5V)  and  the  segment  (X6V,  X2V)  is  un- 
affected by  the  strip  (X4V,  X5V)  (See  Output 
parameter, X6V( I)). 

IERR   -  An  error  code  set  by  subroutine  MOVE.  If  IERR  = 
0,  the  subroutine  MOVE  has  been  successful  and 
output  from  ENDPT  can  be  used.  If  IERR  =  4, 
the  subroutine  MOVE*  has  not  been  successful  and 
output  from  ENDPT  are  probably  in  error. 
(See  Subroutine  MOVE). 

X1V(I)  -  One  end  point  of  the  roadway  segment.  The 

input  values  of  X1V(I)  are  not  altered  by  the 
subprogram. 

X2V(I)  -  One  end  point  of  the  roadway  segment.  The  input 
values  of  X2V(I)  to  ENDPT  may  be  altered  by 
ENDPT  so  that  when  KTRIG  =  0,  the  roadway  segment 
defined  by  (XIV,  X2V)  is  not  affected  by  the 
barrier  or  ground  strip  defined  by  (X4V,  X5V). 
If  KTRIG  =  1,  the  input  values  of  X2V(I)  to 
ENDPT  are  not  altered  by  the  subroutine.  Hence, 
the  output  values  of  X2V( I)  always  represent  an 
end  point  of  a  roadway  segment  that  is  unaffected 
by  the  intervening  barrier  or  ground  strip. 

X3V(I)  -  Input  values  of  the  receiver  location.  Not  altered 
by  the  subprogram. 

X4V(I),  X5V(I)  -  Input  values  of  the  barrier  or  ground 

strip  location.  Not  altered  by  the  sub- 
program. 

X6V(I)  -  If  KTRIG  =  0,  the  point  X6V  has  no  significance. 
If  KTRIG  =  1,  the  point  X6V  is  a  point  on  the 
roadway  segment  (XIV,  X2V)  that  defines  a  totally 
affected  segment  (XIV,  X6V)  and  a  totally  un- 
affected segment  (X6V,  X2V).  The  point  X6V 
may  coincide  with  the  point  X2V. 
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SUBROUTINE  ENDPT  (XIV,  X2V,  X3V,  X4V,  X5V,  X6V,  DTRIG,  IERR)  Concluded 

RESTRICTIONS:  The  subroutine  ENDPT  determines  whether  or  not  the  road- 
way segment  defined  by  the  input  values  of  (XIV,  X2V) 
is  affected  by  the  barrier  or  ground  strip  (X4V,  X5V) 
using  x-y  coordinate  geometry.  Hence,  the  subroutine 
ENDPT  does  make  an  absolute  judgement  as  to  no  effect  if 
KTRI  =  0  on  the  segment  (XIV,  X2V)  or  if  KTRI  =  1  on  the 
segment  (X6V,  X2V).  However,  if  KTRI  =  1,  the  subroutine 
does  not  consider  the  elevations  of  source,  barrier,  and 
receiver  for  the  roadway  segment  (XIV,  X6V).  The  usage 
should  recognize  this  fact. 


ACCURACY: 

SIZE: 

REFERENCES 


That  of  subprograms. 

1152 

None. 


E-49 


QL 


r- 

> 
m 

in 

x 

> 
x 

m 
> 

x 
>  ' 
x 

> 

X1 


uj  O 

-z  a. 

•— •  O 

»-  7 

r>  ui 
t 

at  :* 

m  uj 


(SI 

I 

Cj 


ar 
ra  i 
o  I 

x 


en 


> 


X 


X 


> 
X 


C3 

-J 
* 
> 
O 
X 
fa 

'> 
X 
> 
X 


I 


oo  a, 
_l  — 

a-  r> 
of  o 


rr» 


cj  ?» 

-J  i: 
an  Cj 


o 

St 


a 

fcr"» 


0«~i 

It  tl 


> 

—  X 

r>  >  z      2» 

X  X   3h  X 

»    *  »—         •> 

>XUiD> 

•—  r>  «o  <\i 

T       Q  X 

w  x    «-~  — «  w 

UJ   «-»  O  f*J  UJ 

ua:    •    «cj 

-JO    OUj  _J 

Uj  _J      •     »UJ  xt    il 

or  en   cjcj  or       >m 


|X 

i  «^ 
ID 


a 

r- 

a 
o 


a 

r- 


X 


u. 


O     •   X 


o 


X 

ra 
o 

H 

« 

o 
«  X 

if\  «-> 

•  tui 

O  > 

i      C3    r-. 

»  srs 


m 


a 
o 


am'  _j  _j  «— 
r-r-  «S  «*  U_ 
ji—  u*  ij    m 


u.  <er  O  O 
"«u#  OX 


(% 


o  o 

*T  li 

s:  o 

w  Oi     _J     _J 

U.  H-    UU  «£ 


•  a 

3  uj 

I  • 

II  U 


O  — 


> 
X 
> 

x 


o 

X 

UJ 

> 


liJ 


1 

m 
>: 

X| 

•» 

>! 
O 


.J 

o 

'O 

o 


3  UJ 

o  > 


Uj 


3S   Of 


<    UJ 

CJ  at 


xl  n 

J  M   of 

3^        *♦  t*.        | 

o         •  uj 
x      a 

M       uj  X       j 
uj:         #  >$■ 

>'         0£   *-• 
a  f^  os:  »^ 

T;         H         III        t-        2 

-i--£3 
_ i  ec        ad  ►-  Q 

<K1CUJ2 

O  ^  <-^  u.  ac  uj 


CD 


<^ 


a. 
a 


o 
a: 

CO 


•^ 

rg  pri 

>T 

o 

o  o 

O 

o 

o  o 

o 

a 

Cj  O 

o 

ir>  01s" oo  a*  Or*<M  rn 


ir« 


<n 


1 


o 
o 

o 


O  h-  co  o^  o 


03000   »-i^^i-i»Hi-«   l-(«rtf-iNfSJfVJ(>j<\'\(VN(\(NfO 


OOOC5Q    OOOOO 

o  ooo  o  ooo  o  o 


o ooooooooooooooo 
o  ooooooooooooooo 


E-50 


E.  15  SUBROUTINE  SECTN  (XIV,  X2V,  X3V,  X4V,  X5V,  X6V,  X7V)  Continued 


PURPOSE: 


SUBPROGRAMS 
USED: 


Calculates  the  (x,  y,  z)  coordinates  of  the  points 
X6V(I)  and  X7V(I).  The  point  X6V(I)  is  on  the  line 
passing  through  the  points  X4V,  X5V  intersecting  the 
vertical  (z  -  coordinate)  plane  defined  by  the  (x-y) 
coordinates  of  the  points  XIV,  X3V.  The  point  X7V 
is  on  the  line  passing  through  the  points  X4V,  X5V 
intersecting  the  vertical  (z  -  coordinate)  plane 
defined  by  the  (x-y)  coordinates  of  the  points  X2V, 
X3V.  (See  RESTRICTIONS  and  Figure  E-3). 

INTCPT  (XI,  X2,  X3,  X4,  X5),  ZCOR  (XI,  X2,  X3) 


VARIABLES:     Input  Parameters 

X1V(I),  X2V(I),  X3V(I)  -  Points  in  (x,  y,  z)  coordinate 
space  defining  lines  passing  through  the  points  XIV, 
X3V  and  X2V,  X3V. 

X4V(I),  X5V(I)  -  Points  in  the  (x,  y,  z)  coordinate 
space  defining  a  line  passing  through  the  points  X4V, 
X5V. 

Output  Parameters 

X6V(I),  X7V(I)  -  Points  on  the  line  passing  through  the 
points  X4V,  X5V  that  lie  in  the  vertical  plane  defined 
by  the  x-y  components  of  the  lines  passing  through  the 
points  XIV,  X3V  and  X2V,  X3V,  respectively. 


RESTRICTIONS: 


The  subprogram  does  not  check  to  see  if  the  points  X6V 
and  X7V  lie  on  the  line  segment  (X4V,  X5V).  Usage  of 
this  subprogram  must  recognize  this  restriction. 


ACCURACY: 


See  Subprogram  INTCPT. 
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SUBROUTINE     SECTN  (XIV,  X2V,  X3V,  X4V,  X5V,  X6V,  X7V)  Concluded 
SIZE:  634 

REFERENCES:         None. 


SUBROUTINE    SECT N(  XI  V tX2V fX3V ,X4 V,X5 V, Kb  V, X7 VI 
C    FIND    EFFECTIVE    BARRIER    SECTION 
IMPLICIT    REAL*B     (A-H»0-Z> 

DIMENSION    X1V(3),X2V(3)  ,  X  3V  (3)  ,  X  W  I  31  .X  SVC  31  *6VC3»  tX7V|3» 
CALL    INTCPTl  Kl  ^tX3W,X<»VtX5VtXSVl 
X6V{3>  =  2C0RlX^tf.X5V,X6V) 
CALL    INTCPT(X2VftX3V,X4V, X5V.X7V  1 

v7  u  rt  i.7fnD/v/.u.vi:u.  viu  i 


X7  VP  )  =  2CORCX4VtX5V,X7V) 

RETURN 
END 


SUBROUTINE  SECTN:  LISTING 
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PURPOSE: 


SUBPROGRAMS 
USED: 

VARIABLES: 


RESTRICTIONS: 


E.16  SUBROUTINE  IMAGE(X1V,  X2V,  X3V,  X4V)  Continued 

To  calculate  the  (x,  y,  z)  (I  =  1,2,3)  location  of  an 
image  receiver  at  the  point  X4V( I )  relative  to  a  receiver 
at  the  point  X3V(I)  and  a  reflector  defined  by  the  end 
points  X1V(I)  and  X2V(I).  All  calculations  are  conducted 
in  the  x-y  plane  with  the  z  coordinate,  X4V(3),  of  the 
image  receiver  set  equal  to  the  z  coordinate  X3V(3) 
of  the  receiver. 

None. 

Input  parameter 

X1V(I),  X2V(I)  -  The  x,  y,  z  coordinates  of  the  reflector. 

X3V( I )  -  The  x,  y,  z  coordinates  of  the  receiver. 

Subprogram  parameters 

AX    -  The  x-component  of  the  directed  line  segment 

(XIV,  X2V) 
AY    -  The  y-component  of  the  directed  line  segment 

(XIV,  X2V). 
AXY    -  The  square  of  the  distance  of  the  x-y  plane 

projection  of  the  line  segment  (XIV,  X2V). 
RATIO  -  The  ratio  of  the  x-y  plane  projections  of  the 

distance  of  point  X3V  from  the  line  defined  by 

XIV,  X2V  to  the  length  of  the  line  segment 

(XIV,  X2V). 

Output  parameters 

X4V( I)  -  The  (x,  y,  z)  coordinates  of  the  image  receiver. 

The  subroutine  does  not  utilize  the  z  coordinates  defining 
the  reflector  and,  hence,  cannot  judge  whether  or  not  a 
reflection  would  in  fact  occur.  Usage  should  recognize 
this  restriction. 


ACCURACY: 


Not  applicable. 
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SUBROUTINE  IMAGE(X1V,  X2V,  X3V,  X4V)  Concluded 

SIZE:         532 

REFERENCES:    See  Figure  E-4  for  nomenclative. 


5UBRCUTlNfe    IMAGE (XIV, X2V,X3V,X4V I 
C    FIND  IHAGE   POINT 

ILLICIT    U*L*3     CA-HfO-r> 
DIMENSION  XlV(3),X2V(3)«X3V(3)tX4V(3> 
AX=X2VI1)-X1V(1 J 
AY  =  X2VC2)-Xm2) 
AXf =A<**2»AY**2 
RAT  10*0. 

IF(AXY.  EQ.O. )G0    TO    10 

RAT  10*(((X3  Vt2)-X2V(2))*AX-()(3V  Q  I-X2VU  HUYU2.  OI/AXV 
10    X4/  (l)*X3tf  f  n»tr*MT10 
X4  V  C2  >*X3V  12  J-AX*  RATIO 
X4VC3I-X3VC31 
RETURN 


SUBROUTINE  IMAGE:  LISTING 
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X3V(I)   _  __ 
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X4V(3)  =  X3V(3) 
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FIGURE  E-4.  SUBROUTINE  IMAGE:  NOMENCLATURE 
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E.17   SUBROUTINE  MIDP  (XIV,  X2V,  X3V) 


PURPOSE: 


To  calculate  the  midpoint,  X3V,  of  a  line  segment 
defined  by  the  points  (XIV,  X2V)  in  x,  y,  z  coordinate 
space. 


SUBPROGRAMS 
USED: 

VARIABLES: 


RESTRICTIONS: 
ACCURACY: 
SIZE: 
REFERENCES: 


None. 

Input  parameters 

X1V(I),  X2V(I)  -  Points  in  x,  y,  z  coordinate  space 

defining  the  line  segment. 

I  -  Subscript  defining  the 

x  -  component  1=1 

y  -  component  I  =  2 

z  -  component  I  =  3 

of  the  points  X1V(I),  X2V(I),  X3V(I). 

Output  parameter 

X3V(I)  -  Point  in  x,  y,  z  coordinate  spece  defining  the 
midpoint  of  the  line  segment  (XIV,  X2V). 

None 

Not  applicable 

402 

None 


0001 

0003 
0004 

Oil 


10 


SUBROUTINE    MIDP     (XIV,    X2V,    X3VJ 
FIND   CENTER   POINT 
IMPLICIT   REAl»8     IA-H.O-Z) 
DIMENSION    X1YI3).    X2V(3>,  X3V(31 
D3    10    1*1,3 

X3V(IJ    *    (XlVfl  )*X2V|in/2. 
RETURN 
END 


SUBROUTINE  MIDP:  LISTING 
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E.18  SUBROUTINE  REPLCE  (XIV,  X2V) 


PURPOSE: 


SUBPROGRAMS 
USED: 


To  assign  the  coordinates  of  a  point  or  the  components 
of  a  vector,  X1V(I),  to  the  coordinates  of  a  point  or 
the  components  of  a  vector  X2V(I).  The  values  of  X1V(I) 
are  unchanged. 

None. 


VARIABLES:     Input/Output  Parameters 

X1V(I),  X2V(I)  -  The  components  of  two  vectors  or  the 

coordinates  of  two  points  in  (x,  y,  z)  coordinate  space, 

x  -  component  or  coordinate  I  =  1 

y  -  component  or  coordinate  I  =  2 

z  -  component  or  coordinate  I  =  3 

RESTRICTIONS:  None. 


ACCURACY: 


Not  applicable, 


SIZE: 


310 


REFERENCES:         None. 


0001 
0002 
00.03- 

0005 
0006 

00  07 

0008 


SUBROUTINE    REPLCE  (X  IV  ,X2V  I 

IMPLICIT    REAL**    U-HtO~Z) 

DIMENSION    XlV(3)tX2V(3) 

X2VC1)«X1V(1) 

X2VC2)*X1VC2) 

X2tfC3)«XlfC3) 

RETURN 

END 


SUBROUTINE  REPLCE:   LISTING 
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E- 19   FUNCTION  AMAG  (XIV,  X2V) 


PURPOSE 


SUBPROGRAMS 
LISTED: 

VARIABLES: 


RESTRICTIONS: 
ACCURACY: 
SIZE: 
REFERENCES: 


To  compute  the  length,  AMAG,  of  a  line  segment  defined  by 
the  end  points  X1V(I)  and  X2V(I),  for  an  (x,  y,  z) 
coordinate  system. 

DSQR  (XIV,  X2V);  SQRT  fX). 

Input  Parameters 

X1V(I),  X2V(I)  -  Points  defined  by  their  x(I=l),  y(I=2), 

z(I=3)  coordinates. 

None. 

Not  Applicable. 

370 

Calculates  the  length  of  a  line  vector,  R1?,  as  AMAG  = 

^   12  *    ^12'    * 


Q.D.01 

Q_QQ2. 

00  03 

Oj     4 

0J05 
0006 


FUNCTION   AHAGIX1V.X2VJ 
C    FIND    MAGNITUDE    OF    VECTD8 

IMPLICIT    REAL*8     (A-HtO-Z> 
DIMENSION    X1VC3), X2V (31 
AMAG=DS(JkT(DSGR  (XIV  ,X2VJ) 
RETURN 
END 


FUNCTION  AMAG:  LISTING 
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E.20   FUNCTION  ANGLE  (XIV,  X2V,  X3V) 


PURPOSE: 


SUBPROGRAMS 
LISTED: 

VARIABLES: 


RESTRICTIONS: 
ACCURACY: 
SIZE: 
REFERENCES: 


To  compute  the  angle  between  the  two  line  segments  defined 
by  the  points  (XIV,  X3V)  and  (X2V,  X3V)  for  an  (x,  y,  z) 
coordinate  system. 

DSQR  (XI,  X2),  SQRT  (X),  ARCOS  (X). 

Input  Parameters 

X1V(I),  X2V(I),  X3V(I)  -  Points  defined  by  their  x(I=l), 

y(I=2),  z(I=3)  coordinates. 

Subprogram  Parameters 

D13  -  Square  of  the  length  of  the  line  segment  defined  by 

the  points  X1V(I)  and  X3V(I). 
D12  -  Square  of  the  length  of  the  line  segment  defined  by 

the  points  X1V(I)  and  X2V(I). 
D23  -  Square  of  the  length  of  the  line  segment  defined  by 

the  points  X2V(I)  and  X3V(I). 

If  point  X3V  coincides  with  either  XIV  or  X2V, ANGLE  =  ff/2. 

That  of  subprograms. 

6248 

COS  (ANGLE)  is  calculated  using  the  "Law  of  Cosines." 
ANGLE  is  calculated  as  COS"1  (COS(ANGLE)). 

FUNCTION  ANGLE:  LISTING 


OOOl 

0002 

Qj_>3 

00>* 

0005 

0  =  ^6 

OJ    7 

0008 

0009 

Ou  10 

OUll 


FIHCT13N    &«GLECXl*,X2V»X3tf> 

IMPLICIT    RFAL*B     tA-H»Q-Z) 

DIMENSION    X1V(3 ),X2V(3>  ,X3V (3) 

D13*DSQRtXlV,X3V^ 

D23*DSJRU2tf,<3n 

AN&LE=1 .570» 

IF(D13*D23    EO   0     IRETURN 

D12=DSQR{XlYtX2V) 

AM  SLE»D ARC 3S( 13  23*3  1  3-D  12) M DSQRTC  D13*D23t*2.l  1 

RETURN 

END 
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E.21   FUNCTION  BARFAC  (KF,  DELP)  Continued 


PURPOSE: 


SUBPROGRAMS 
LISTES: 

VARIABLES: 


RESTRICTION: 


ACCURACY: 
SIZE: 


To  compute  the  attenuation  of  acoustic  intensity  for  a 
propagation  path  over  a  barrier  between  a  source  point 
and  a  receiver  point  for  a  given  path  length  difference, 
DELP,  and  octave  band  center  frequency,  denoted  by  the 
index  KF. 

SQRT(X),  TAN(X),  TANH(X),  ABS(X). 

Input  parameters 

KF   -  Interger  index,  n,  for  octave  band  center  frequency 
(see  derivation  below)  or  A-weighted  sound  level,  (KF 

Subprogram  parameters 

DELP  -  Path  length  difference,  6,  between  the  diffracted 

ray  and  the  direct  ray  between  source  and  receiver. 
IP   -  Variable  internal  to  subprogram  equal  to  KF. 
A    -2  ttN,  where  N  is  the  Fresnel  Number  (see  derivation 

below). 

Theory  based  upon  Fresnel  diffraction  using  an  analytical 
approximation  to  the  experimental  measurements  of  Maekawa. 
(See  Section  'A. 6,  Appendix  A). 

If  KF=1,  the  A-weighted  sound  level  is  being  utilized. 
This  subprogram  evaluates  A-weighted  sound  level 
attenuation  by  calculating  the  attenuation  at  the  octave- 
band  center  frequency  of  500  Hz.  (IP=5). 

Speed  of  sound,  c,  is  assumed  to  be  1120  ft/sec. 

That  of  subprograms. 

856 


=  1) 
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FUNCTION  BARFAC  (KF,  DELP)  Continued. 

REFERENCES:    Maekawa,  Z.:  "Noise  Reduction  by  Screens;  Applied  Acoustics, 

Vol.  1,  1968,  pp  157-173. 

Kurze,  U.J.,  and  Anderson,  G.S.;  "Sound  Attenuation  by 

Barriers",  Applied  Acoustics,  Vol.  4,  1971,  pp  35-53. 

Kurze,  U.J.;  "Noise  Reduction  by  Barriers",  J.  Acoustical 

Society  of  America,  Vol.  55,  No.  3,  March  1974, 

pp  504-518. 

DERIVATION:    Development  of  the  relationship  for  calculating  the 

barrier  factor  (attenuation)  as  a  function  of  Fresnel  Number 
is  presented  in  Section 

For  an  octave  band  center  frequency,  f  ;  a  path  length 
difference, 8  ;  and  a  speed  of  sound,  c;  the  Fresnel  Number 
is  defined  as 

N  =  2fc8/c 

for      f    =  2n   .  103/64;     n  =  2, 3, ....9,     c  =  1120  ft/sec. 

N  =  2fc  8/1120  =  fc  8/560 

N  =  2n   •  103  8/(64   •  560)   =  2n  8/(35.34) 

A  =  2?r  N  =  2n  8/(35.84/277  )   =  2n  8/5.7 

BARFAC  =  10"Db/1° 
for       N<-0.2;       A  < -1.257;       D.=0;       BARFAC=1.0 
for       -0.2<N<0       -1.257<A<0 

Db  =  20'log     (  VTa"|/TAN(  >/|A!))  +  5  =  20  log  (R)  +5 

BARFAC  =  10- <20  l0^   (R)+5)/10=   (lO0'5^)"1 
BARFAC  =   (3.1623  R2)"1  =   (TAN(  V|A~|)/  >/|A*l)2/3.16 
for       N=0;     A=0;     Db=5;   BARFAC  =  10"5/10  =  0.31623 
for       0<N<  5.03;      0<A  <31.6; 

Db  =  20-log  (v/A/TAN  H(v/rA))  +  5  =  20  log  (R)  +  5 
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FUNCTION  BARFAC  (KF,  DELP)  Concluded 


for 


BARFAC  =  lCf<2(Mo9  <R>  +  5^° 

=   (3.1623  R2)"1   =   (TANH(vft))2/3.16A 
N  >  5.03;     A  >31.6  Db  =  20* 

BARFAC  =  10"20/10  =  10"2  =  0.0100 


*    Note:Previous  versions  of  this  subroutine  placed  an  upper  limit  of 
Db  =  24  dB  on  barrier  attenuation  (ie,  BARFAC  =  4  •  10"3).     The 
upper  limit  has  been  reduced  to  20  dB  based  upon  field  experience. 


!  J  u  i 

uo   2 

0003 

Q004 

00  05 

OuC-6 

0007 

Ou-08 

0009 

0010 

0011 

0012 

0013 

<W-14 

0015 

OQU 

0017 

0018 

0019 

VU4&U 

0021 

0022 

00  23 

FUMCTIQN   BARFAC  IKFfDEE.PI 
IKPcICIT   REAL*8     (A-H.O-ZI 
C    FINO    BARRIER   FACTOR 

IFCDELP.E3.-0.2)G3  TO  3 
IFCDELP.GE.5.b5)&a  TO  4 
IP-KF 

IFfKF    EG    1)IP=5 
A=DELP*|2.**IP|/5.7 
IFCA.&E.31.61G3    TO    k 
IFfA.GT.O.)    GO    TO    5 
IFfA    EO.O.IGO    TO   6 
1FCA.&T.-1 .25.AND.A.LT.O.I&0    TO    7 

3  BARFAC* 1*0 
RETURN 

4  BARFAC  =0,01 
RE  TURN 

5  BA*FAC  =  CDrASHOSaU  IA  J )  **2&  /  M  3  .16 
RETURN 

6  BARFAC-. 316 
RETURN 

7  A1=DA3S(AI 
BARFACMDTAMDSQRTtAim**2/Al/3.16 
RETURN 

END 


FUNCTION  BARFAC:  LISTING 
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E.22  FUNCTION  DEL  (XIV,  X2V,  X3V,  X4V,  HDIFF,  DN1)  Continued 


PURPOSE: 


SUBPROGRAMS 
USED: 

VARIABLES: 


To  calculate  the  path  length  difference,  DEL,  between 
the  ray  from  the  source  point,  X1V(I),  diffracted  over  a 
barrier  defined  by  a  line  segment  defined  by  the  points 
(X3V(I),  X4V( I ) )  towards  a  receiver  location  at  the  point 
X2V(I).  Points  and  line  segments  are  defined  in  an 
x(I  -   1)»  y(I  =2),  z(I  =  3)  coordinate  system. 

NRPT  (XI,  X2,  X3,  X4,  DIST),  DSQR  (XI,  X3),  SQRT  (X). 

Input  parameters 

X1V(I)  -  Source  point  at  x(I  =  1),  y(I  =  2),  z(I  =  3) 
X2V(I)  -  Receiver  point  at  x(I  =  1),  y(I  =  2),  z(I  =  3) 
X3V(I)  -  End  point  of  line  segment  at  x(I  =  1),  y(I  =  2), 

z(I  =  3)  defining  barrier. 
X4V(I)  -  End  point  of  line  segment  at  x(I  =  1),  y(I  =  2), 

z(I  =  3)  defining  barrier. 
HDIFF  -  Height  difference  between  source-receiver  ray 

and  top  of  barrier.  (See  function  HEIGHT). 
DN1    -  Distance  between  source-receiver. 

Subprogram  parameters 

DISTA  -  Distance  from  source  to  point  XA(I). 
DISTB  -  Distance  from  receiver  to  point  XB(I). 
DISTC  -  Square  of  distance  between  points  XA( I )  and 

XB(I). 
XA(I)  -  Point  on  line  defined  by  the  line  segment 

(X3V,  X4V)  that  is  nearest  to  the  source  point 

X1V(I). 
XB(I)  -  Point  on  line  defined  by  the  line  segment 

(X3V,  X4V)  that  is  nearest  to  the  receiver  point 

X2V(I). 

Output  parameters 

DEL    -  Path  length  difference.  Positive  if  HDIFF  is  less 
than  zero.  Negative  if  HDIFF  is  greater  than  zero. 
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FUNCTION  DEL  (XIV,  X2V,  X3V,  X4V,  HDIFF,  DN1)  Concluded 


RESTRICTIONS: 


ACCURACY: 

SIZE: 

REFERENCES: 


The  subprogram  does  not  check  to  see  if  the  direct  path 
from  the  source  to  the  receiver  intersects  the  barrier. 
Hence,  it  is  possible  to  define  input  to  the  subroutine 
that  yields  a  positive  value  of  DEL  when  in  fact  DEL 
should  be  zero.  Usage  of  this  subroutine  should  recognize 
this  restriction. 

That  of  subprograms. 

672 

See  Figure  E-5  for  derivation  of  algorithm. 


DO  02 

0003 

-00..04. 

0005 

0004 

00  )7 

00  09 
0010 


FUNCTION   DELIX1V  vX2VvX3VvX<iV.HCIfF  ,DN1I 
FIND    PATH   LENGTH   DIFFERENCE 

IMPLICIT    *EAL*8    IA-H.O-ZI 

DIMENSION    X1V(31.X2V(3) »X3V (3) ,X4V (31 ,X AVC3) »XBV(3) 

CALL    NRPT(X3V,X4V,X1VVXAV9DI3TA) 

CALL    NRPT(X3tf,X4V,X2V.XBV,DISTBI 

Dl  STC=DS3UX3V,  X/W  ) 

DEL=DSQRTUDISTA*DISTB)«*2*D1STC)-DN1 

IF(HDIFF.GT.O.IDEL*-DEL 

RETURN 

END 


FUNCTION  DEL:  LISTING 
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FUNCTION  DEL  (X1V,X2V,X3V,X4V,HDIFF,DN1 ) 


X4V 


(to?  op  fcAfcttJMaraL} 


X2V 


Basic  Relationship: 
Basic  Geometry: 


DEL  =  A  +  B  -  DN1 

DISTA  =  A  cos  9 

DISTB  =  B  cos  0 

A2  =  DISTA2  +  Dl2 


Dl  =  A  SIN  8 
D2  =  B  SIN  6 
B2  =  DISTB2  +  D22 


DISTA  ♦  DISTB  +  Dl  •' D2  =  AB  cos28  +  AB  SIN28  =  AB 


(A  +  B)2 
(A  +  B)2 
(A  +  B)2 
DISTC 


A2  +  B2  +  2AB 


DISTA2  +   Dl2  +  DISTB2  +  D22  +  2  (DISTA  •  DISTB  +  Dl  ♦  D2) 
(DISTA  +  DISTB)2  +  (Dl  +  D2)2 
(Dl  +  D2)2 


\  A  +  B  -  DN1  =  SQRT((DISTA  +  DISTBr  +  DISTC)  -  DN1 


FIGURE  E-5.   FUNCTION  DEL:  DERIVATION 
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PURPOSE: 


SUBPROGRAMS 
USED: 

VARIABLES: 


RESTRICTIONS: 
ACCURACY: 
SIZE: 
REFERENCES: 


E.23   FUNCTION  DSQR  (XIV,  X2V) 

To  calculate  the  square  of  the  distance  between  two 
points  X1V(I),  X2V(I)  in  x(I  =  1),  y(I  =  2),  z(I  =  3) 
space. 

None. 

Input  parameters 

X1V(I),  X2V(I)  -  Points  defining  a  line  segment  by  their 
x,  y,  z  coordinates. 

Output  parameters 

DSQR  -  The  square  of  the  distance  between  the  points 
X1V(I),  X2V(I). 

None. 

Not  applicable. 

392 

DSQR  is  the  scalar  ("dot")  product  of  the  vector  between 
points  XIV  and  X2V. 

DSQR  =  R12  •  R]2  =  R21  •  R21 


0001 
00  02 

00^3 

000% 
0005 
0006 

00  07 

Qyne 


FUNCTION  DSQR:   LISTING 

FUNCTION   DSQRCX1V.X2V) 
IMPLICIT   REALMS     l*-H,0-Z! 
DIMENSION      X1V13).X2VC3) 
DSQR =0,0 
DO    10    1*1,3 
10    DSQR  =  (XlVtl)-X2Vim**2*D$QR 
RETURN 
END 
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E.24   FUNCTION  HEIGHT  (XIV,  X2V,  X3V,  X4V) 

PURPOSE:      To  calculate  the  difference  in  elevation  (z  coordinates) 
between  the  lines  defined  by  the  points  (XIV,  X2V) 
and  (X3V,  X4V)  at  the  x-y  plane  intersection  point  of 
the  x-y  plane  projections  of  the  lines  (XIV,  X2V) 
and  (X3V,  X4V). 


SUBPROGRAMS 
USED: 

VARIABLES: 


RESTRICTIONS 


ACCURACY: 


SIZE: 
REFERENCES: 


INTCPT  (XI,  X2,  X3,  X4,  X5)  ZCOR  (XI,  X2,  X3). 

Input  parameters 

X1V(I),  X2V(I)  -  Two  points  defining  a  line  in  x(I  =  1), 

y(I  =  2),  z(I  =  3)  coordinates. 

X3V(I),  X4V(I)  -  Two  points  defining  a  line  in  x(I  =  1), 

y(I  =  2),  z(I  =  3)  coordinates. 

Subprogram  parameters 

XI (I)  -  The  x-y  plane  intersection  point  of  the  x-y 

plane  projections  of  lines  defined  by  the  points 
(XIV,  X2V)  and  (X3V,  X4V).  Note  XI(3)  is  never 
assigned  a  value. 

Output  parameters 

HEIGHT  -  Difference  in  elevation  between  lines  defined 

by  (XIV,  X2V)  and  (X3V,  X4V)  at  intersection 

point. 

That  of  subprograms  used.  Hence,  HEIGHT  can  be  an 
elevation  difference  at  a  location  not  on  the  line 
segment  defined  by  (XIV,  X2V)  and  (X3V,  X4V).  See 
Subprograms  INTCPT  and  ZCOR. 

If  the  x-y  plane  projections  of  the  lines  (XIV,  X2V) 
and  (X3V,  X4V)  are  parallel  on  collinear  HEIGHT  will  be 
a  very  large  number.  See  Subprograms  INTCPT  and  ZCOR. 

518 

See  Subprograms  INTCPT  and  ZCOR. 
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't*  U  FUNCTION   HfcIGHT(XlV,X2VtX3VtX4V) 

C    FIND    HEIGHT    DIFFERENCE 

(1002  IMPLICIT    UAL*8     U-H,0-l) 

0U03  DIMENSION    X  1VC3  )  ,X2V  (3)  ,X3V  (31  ,X4V  C  31  »X  I(  31 

0004  CALL    lNTCPTCXlV,X2VtX3V,X4V,*n 

0005  HEIGHT-ZC3MX1Y  ,X2V  ,X  D-ZC0RCX3V  ,X4V  ,K  I) 

0006  REIURY 
Q<j*  7  END 


FUNCTION  HEIGHT:  LISTING 
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E.25  FUNCTION  IAREA  (XIV,  X2V,  X3V)  Continued 

PURPOSE:        To  calculate  an  index,  IAREA,  that  indicates  the  relative 
spacing  (area  enclosed)  of  the  three  points  XIV,  X2V, 
X3V  in  the  x-y  plane. 

DABS(X) 


SUBPROGRAMS 
USED: 

VARIABLES: 


Input  Parameters 

X1V(I),  X2V(I),  X3V(I) 
x  -  coordinate  I 
y  -  coordinate  I 


Points  defined  in  the  x-y  plant. 

1 

2 


Subprogram  Parameters 

TERM  1,  TERM  2,  TERM  3  -  The  three  terms  resulting  from 

calculating  the  vector  ("cross")  product  of  the 

vectors  Ro-i  and  R^ 

AREA  -  A  number  equal  to  twice  the  area  of  the  triangle 
formed  by  the  points  XIV,  X2V,  X3V.  If  AREA  is 
zero,  the  points  XIV,  X2V,  X3V,  are  colinear. 
(See  REFERENCES). 

Output  Parameters 

IAREA:IAREA  =  1  if  the  area  of  the  triangle  formed  by 

XIV,  X2V,  X3V  is  greater  than  1  square  foot,  or 

if  AREA  is  negative. 

IAREA  =  0  if  the  area  of  the  triangle  formed  by 
XIV,  X2V,  X3V  is  equal  to  or  greater  than  zero 
square  feet  but  less  than  or  equal  to  1  square  foot, 
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FUNCTION  IAREA  (XIV,  X2V,  X3V)  Concluded 

RESTRICTIONS:  None. 

ACCURACY:     Not  applicable. 

SIZE:        486 

REFERENCES:    The  variable  AREA  is  the  magnitude  of  the  vector  formed 

by  the  vector  product  of  the  vectors  RL,  and  R3« 
in  the  x-y  plane. 


C      IAfiEA  03/78         SAI    BOD 

°°01  FUNCTION    IAREA(X1  V,X2V,X3V) 

C    FIND    AREA    OF    TRIANGLE 

00°2  IMPLICIT    REAL*8    (A-H,0-Z) 

0003  DIMENSION    X1V  (2)  ,  X2V  (2)  ,X3V(2) 

0004  IAREA=1. 

0005  TEKM1=X1V(1)  *(X2V  (2)-X3V  (2)) 

0006  TEEM2=X2V  (1)  *  (X3V  (2)  -X1V  (2) ) 

0007  T£RM3  =  X3V  (1)  *  (X1V  (2)-X2V(2)) 
0003  AREA=TERH1+TE2M2+TERH3 

0009  IF    (DABS{.5*AREA)  .LE.1.)     IABEA=0 

0010  RETURN 

0011  END 


FUNCTION  IAREA:  LISTING 
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E.26  FUNCTION  IEPS  (XIV,  X2V,  X3V,  X4V,  DELI)  Continued 

PURPOSE:      The  decision  parameter  IEPS  represents  a  comparison  of  two 
path  length  differences,  DELI  and  DEL2,  to  decide  whether 
or  not  the  path  length  differences  are  sufficiently  similar 
so  that  the  condition  of  uniform  sound  Intensity  from  a 
roadway  segment  to  a  receiver  via  a  diffracted  path  over 
a  barrier  exists.  If  IEPS  =  0,  the  condition  of  uniform 
sound  intensity  at  the  receiver  is  satisfied  and  DEL2 
is  considered  similar  to  DELl.  If  IEPS  *  1,  DEL2  1s  not 
sufficiently  similar  to  DELI  for  uniform  sound  Intensity 
at  the  receiver  to  be  assumed. 


SUBPROGRAMS 
USED: 


VARIABLES: 


AMAG(X1,  X2);  HEIGHT(X1,  X2,  X3,  X4); 
(DEL(X1,  X2,  X3,  X4),  (HDIFF,  DIST);  ABS(X). 

Input  parameters 

X1V(I)  -  A  point  in  (x,  y,  z)  coordinate  space  that  re- 
presents the  source. 

X2V(I)  -  A  point  in  (x,  y,  z)  coordinate  space  that 
represents  the  receiver. 

X3V(I),  X4V(I)  -  Two  points  in  (x,  y,  z)  coordinate  space 
that  define  a  line  representing  the  top 
of  a  barrier. 

DELI  -   A  number  representing  a  path  length  difference 
for  an  acoustic  propagation  path  diffracting 
over  a  barrier. 

Subprogram  parameters 

DIST  -   The  distance  between  the  source  point  X1V(I) 
and  the  receiver  point  X2V(I). 

HDIFF  -  The  elevation  difference  (difference  in  z  co- 
ordinates) between  points  on  the  lines  defined 
by  the  points  XIV,  X2V  and  X3V,  X4V  at  the  x-y 
plane  intersection  point  of  these  lines  (See 
RESTRICTIONS). 
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FUNCTION  ,  I  EPS  (XIV,  X2V,  X3V,  X4V,  DELI)  Concluded 

DEL2  -   The  path  length  difference  defined  by  the  source 
location,  XIV;  the  receiver  location,  X2V;  and 
the  top  of  a  barrier  defined  by  the  line  through 
the  points  X3V,  X4V.   (See  RESTRICTIONS  and 
Subprogram  DEL). 

DELM  -   The  arithemetic  average  of  the  values  of  DELI 
and  DEL2. 

Output  parameter 

IEPS  -   IEPS  =  0  if  the  values  of  DELI  and  DEL2  satisfy 
the  cirterion  presented  under  REFERENCES.  (See 
PURPOSE)  IEPS  =  1  if  the  values  of  DELI  and 
DEL2  do  not  satisfy  the  criterion  presented  under 
REFERENCES.   (See  PURPOSE). 

RESTRICTION:   Neither  the  subprogram  IEPS  nor  any  of  the  subprograms 
utilized  by  IEPS  checks  to  see  .if  the  line  segment 
(XIV,  X2V)  intersects  the  line  segment  (X3V,  X4V). 
For  proper  utilization  this  subprogram  must  receive  input 
data  such  that  the  above  line  segments  do  intersect  and 
that  the  variable  DELI  corresponds  to  a  path  length 
difference  associated  with  the  input  data  geometry.  Usage 
should  recognize  this  restriction.  (See  Subprogram  DEL). 

ACCURACY:     That  of  subprograms  used  and  the  criterion  specified. 
(See  REFERENCES). 

SIZE:         700 

REFERENCES:    The  criterion  used  to  judge  similarity  of  two  path  length 

differences  is  that 

(8    +8  ) 

100    0  +  (  «2  +81)/2)<0.10 


I82  -  8}\    - 


Where  6,  =  DELI,  6~  =  DEL2.  See  description  of  barrier 
diffraction  under  Prediction  Model  in  main  text  of  report 
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E.27   FUNCTION  KCUT  (XIV,  X2V,  X3V,  X4V) 


PURPOSE: 


SUBPROGRAMS 
USED: 

VARIABLES: 


RESTRICTIONS: 

ACCURACY: 

SIZE: 

REFERENCES: 


To  calcualte  a  logic  number,  KCUT,  that  indicates  whether 
or  not  two  line  segments  intersect  in  the  x-y  plane. 
The  line  segments  are  defined  by  the  end  points  (XIV, 
X2V)  and  (X3V,  X4V).  If  the  line  segments  intersect 
(including  end  points)  KCUT  =  1.  Otherwise,  KCUT  =  0. 

INTCPT  (XI,  X2,  X3,  X4,  X5),  KPOS  (XI,  X2,  X3). 

Input  parameters 

X1V(I),  X2V(I)  -  Points  in  the  x-y  plane  defining  a  line 
segment.  The  subscript  I  =  1  for  x- 
coordi nates;  I  =  2  for  y-coordi nates. 

X3V(I),  X4V(I)  -  Points  in  the  x-y  plane  defining  a 

line  segment.  The  subscript  I  =  1  for  x- 
coordi nates;  I  =  2  for  y-coordi nates. 

Output  parameters 

KCUT  =  1  -  if  the  line  segments  intersect  in  an  oblique 

sense  including  end  points. 
KCUT  =  0  -  if  the  line  segments  do  not  intersect  or  are 

col  linear. 

If  the  line  segments  are  col  linear,  KCUT  =  0.  See  Sub- 
program INTCPT.  Usage  should  recognize  this  restriction. 

Not  applicable. 

544 

None. 

FUNCTION  KCUT:   LISTING 


OG  ^1 

00  U  Z 
0003 

D«Ht* 
0005 

0UU4 
000? 


FUNCTION   KCUTf  XlVfX2V,X3V,X'm 
C    DE  IE  MIME    IF    1*3    LIME    SEGMENTS   CROSS 
IMPLICIT    REAL*B    U-H.O-Z) 
DIMENSION    X1VC2NX2V  (2)  »X3V  (2)  »X4V  C2>«X9tf(2) 

KCUT*  > 

CA.L    IMTC»rt<I#i(2/tX3VtX4tf  VX5V! 

lFtKP0S(XlVtX2V,X5V  )  .NE.1IRETURN 

lF(KP0StX3v>X4V»X5V  »   EQ.  1IKCUT*  1 

R  ET  URN 

END 
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PURPOSE 


SUBPROGRAMS 
USED: 

VARIABLES: 


RESTRICTIONS: 


E.28   FUNCTION  KPOS  (XIV,  X2V,  X3V) 

To  calculate  a  logic  number,  KPOS,  indicating  whether  the 
point  X3V,  in  the  x-y  plane  lies  on  a  line  segment  defined 
by  the  points  XIV,  X2V  in  the  x-y  plane.  If  X3V  lies  on 
the  line  segment  (including  the  end  points)  KPOS  =  1. 
If  X3V  does  not  lie  on  the  line  segment  KPOS  =0.  (See 
RESTRICTIONS). 

None. 

Input  parameters 

X3V(I)  -  A  point  in  the  x-y  plane  defined  by  the  x-co- 
ordinate  (1=1)  and  the  y-coordinate  (I  =  2). 
X1V(I),  X2V(I)  -  Points  in  the  x-y  plane  defined  by  the 

x-coordinate  (1=1)  and  the  y-coordinate 

(1=2). 

Output  parameters  (SEE  RESTRICTIONS) 

KPOS  =  1  -  If  X3V  lies  on  the  line  segment  XIV,  X2V. 

KPOS  =  0  -  If  X3V  does  not  lie  on  the  line  segment 
XIV,  X2V. 

The  criteria  used  to  judge  if  X3V  is  on  the  line  is 

R12  *  R23>^)*  Hence>  it  1S  possible  for  X3V  to  lie  off 
the  line  segment  and  still  obtain  KPOS  =  1.  Usage  should 
recognize  this  fact. 


ACCURACY: 

See  RESTRICTIONS. 

SIZE: 

390 

REFERENCES: 

None. 
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E.29   FUNCTION  ZCOR  (XIV,  X2V,  X3V) 


PURPOSE: 


SUBPROGRAMS 
USED: 


To  calculate  the  z  -  coordinate,  X3V(3),  of  a  point 
X3V(I)  on  a  line  defined  by  the  points  X1V(I)  and 
X2V(I). 

ABS(X) 


VARIABLES:     Input  Parameters 

X1V(I),  X2V(I)  -  Points  in  (x,  y,  z)  coordinate  space 
defining  a  line. 

X3V(1),  X3V(2)  -  The  x-coordinate  and  the  y-coordinate 
of  the  point.  X3V.   (See  RESTRICTIONS). 

Output  Parameter 

X3V(3)  -  The  z-coordinate  of  the  point  X3V.  (See 
RESTRICTIONS). 


RESTRICTIONS: 


The  subroutine  does  not  check  to  see  if  the  x-y  coor- 
dinates of  X3V  fall  on  the  x-y  plane  projection  of  the 
line  through  the  points  XIV,  X2V.  Usage  of  the  sub- 
routine should  reflect  this  restriction. 


The  points  XIV,  X2V  must  neither  coincide  nor  define 
a  line  parallel  to  the  z-axis. 


ACCURACY: 
SIZE: 


Not  applicable, 


490 


REFERENCES:    None. 
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0001  FUNCTION    ZC  QMX  IV  ,X  2V  ,X3V  ) 

C    FIMD    Z    CDiHDIYATE 

0m42-  IMPLICIT    REAL*8    CA-H.O-Z) 

0003  DIMENSION    XI V(3 ) ,X2V  (3  I  ,X3V  (3  * 

0004  1EM1»X2VU  I-XIVO) 
00(5  TE*2=X2V(21-<1#C2) 

0046  TEM3sx2Vt3)-Xl¥{3) 

0;J07  IF    (DABStTEMl  I    GT   DAB51TEM2  11    CO    TC    10 

00  08  iC  Q  k  =X  1  V  13  I  *  ( X  3V  (  2 1  -  X  IV  t  2)  I  »T  EM  3/T  E  *2 

0009  RETURN 

0010  1       IC0R=X1V{3  H4X3V(1)-X1V|1))*TEM3/TEM1 

0011  RETURN 

0012  END 


FUNCTION  ZCOR:  LISTING 
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E.30    SUBROUTINE  i GEOMRY (XR,  YR,  ZR,  XRIO,  XR20,  IERR,  MR) 

PURPOSE 

This  subroutine  conducts  the  bulk  of  the  calculation  effort  of  the 
highway  traffic  noise  prediction  code.  Basically,  subroutine  GEOMRY 
considers  a  receiver  location  defined  by  the  coordinates  XR,  YR,  ZR 
and  a  straight  line  roadway  segment  defined  for  roadway  number  MR 
with  end  points  XRIO  and  XR20.  This  defines  the  basic  roadway/receiver 
geometry  and  traffic  flow  conditions  as  indicated  in  Figure  A-l, 
Appendix  A.  The  error  code,  IERR,  is  generated  in  subroutines  MOVE 
and  M0VE2  (IERR=4)  or  if  too  many  reflections  have  occurred  (IDXR 
greater  than  11 ,  IERR  =  3). 

Using  the  basic  assumption  of  uniform  reception  of  acoustic  intensity 
at  the  receiver  location,  subroutine  GEOMRY  considers  attenuation 
by  barrier  diffraction  or  ground  absorption  or  amplification  by  re- 
flection from  barriers.  It  is  an  understatement  to  say  that  the 
subroutine  is  complex.  Subroutine  GEOMRY  considers  all  site-related 
geometric  and  acoustic  parameters  to  estimate  the  normalized  acoustic 
intensity  (Equation  A-9)  and  the  normalized  value  of  the  cumulant, 
k£  (Equation  A-ll)  at  a  receiver  for  a  straight  line  roadway  segment. 
Subroutine  GEOMRY  is  called  by  the  MAIN  PROGRAM  for  all  segments 
defining  a  roadway  and  for  all  roadways  for  each  receiver  location 
(See  Figure  D-2).  The  summation  of  acoustic  intensity  and  calcu- 
lation of  the  cumulant  at  each  receiver  is  accomplished  by  the  call 
statement  to  GEOMRY  from  the  MAIN  PROGRAM  and  branching  internal  to 
GEOMRY.  Consideration  of  vehicle  types  and  spectra  calculations 
defined  by  the  user  are  conducted  internally  in  subroutine  GEOMRY. 
The  vast  bulk  of  data  utilized  by  GEOMRY  is  transferred  through  the 
various  COMMON  data  blocks  (See  Appendix  C). 

The  basic  organization  of  subroutine  GEOMRY  is  illustrated  in  Figure 
E-6.  For  the  basic  roadway/ receiver  geometry  (a  plane  triangle 
defined  by  the  end  points  of  the  roadway  segment  and  the  receiver), 
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AN  OVERVIEW  OF  SUBROUTINE  GEOMRY 


C    START  ^ 


For  a  road  section: 


Preliminary  Computations 


Preliminary  selection  of  diffracting  barriers 


16<> 


Preliminary  selection  of  absorbing  strips 


For  all  road  segments  with  uni- 
form attenuation  by  barrier 
diffraction:  25<> 


Compute  diffraction  of  direct  ray 


For  all  road  segments  with  uni- 
form attenuation  by  ground 
absorption:  72 


Compute  ground  absorption 


78 


I 


Preliminary  selection  of  reflectors 


For  all  road  segments  with  uni- 
form gain  owing  to  reflections 


91i 


Compute  potential  reflections 


950 


Compute  actual  reflections  by 
considering  diffraction 


180 


I 


Final  computations  and  summation  of 
sound  intensities 


^RETURN) 


See  Figure  E-7. 
See  Figure  E-7. 

See  Figure  E-7. 

See  Figure  E-8 

See  Figure  E-9. 
See  Figure  E-10. 

See  Figure  E-ll. 

See  Figures  E- 12  &  E-13 

See  Figure  E-14. 


FIGURE  E-6.   SUBROUTINE  GEOMRY:  OVERVIEW 
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GEOMRY  checks  during  the  preliminary  calculations  to  see  if  barrier 
segments  and/or  ground  strip  segments  lie  interior  to  the  x-y  plane 
projection  of  the  roadway/receiver  triangle.  Using  only  x-y  plane 
geometry,  segments  or  portions  of  segments  of  barriers  and/or  ground 
strips  are  identified  as  "potential"  diffractions  or  ground  strips, 
respectively,  which  are  stored  for  a  more  detailed  analysis. 

The  detailed  consideration  of  diffraction  or  ground  strip  attenuation 
is  accomplished  by  GEOMRY  using  a  sequential  subdivision  of  the 
straight  line  roadway  segment  into  subsegments,  beginning  at  point 
XR10.  If  no  barriers,  ground  strips,  or  reflectors  have  been  encountered, 
no  subdivision  of  the  segment  XR10,  XR20  occurs  and  the  acoustic  inten- 
sity is  calculated  from  the  roadway  segment.  (Equation  (A-3)) 

If  a  potential  diffraction  or  ground  strip  has  been  encountered,  the 
segment  (XR19,XR20)  is  subdivided  as  indicated  in  Figure  A-l  (c)  as  an 
example.  For  each  subsegment  potentially  affected  by  a  barrier,  GEOMRY 
further  subdivides  the  roadway  segment  using  three-dimensional 
geometry  to  determine  whether  or  not  the  diffraction  is  significant. 
For  significant  diffractions  (See  Equation(A-21 ))the  roadway  subdivision 
continues  until  uniform  acoustic  intensity  at  the  receiver  can  be  assumed. 
If  a  diffraction  is  encountered,  GEOMRY  ignores  attenuation  potentially 
resulting  from  absorptive  ground  strips  for  subsegment  geometry.  For 
each  diffraction  calculation,  GEOMRY  retains  only  the  maximum  path 
length  difference  calculated  for  each  vehicle  type  (including  source 
height  adjustment)  to  estimate  attenuation  resulting  from  diffraction. 

Subroutine  GEOMRY  checks  first  for  diffraction,  then  for  absorptive 
ground  strips,  and  finally  for  reflections  to  establish  the  subdivision 
of  a  roadway  segment.  Hence,  a  roadway  segment  as  defined  by  the  user 
may  be  subdivided  several  ti  ~  internaly  by  GEOMRY  prior  to  returning 
to  the  MAIN  PROGRAM. 

Flow  diagrams  are  presented  in  Figures  E-7  through  E-14  illustrating  the 
detail  operations  and  branches  of  the  internal  calculations  utilized  by 
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GEOMRY  for  each  major  consideration  presented  in  Figure  E-6.  These 
flow  diagrams  are  presented  at  the  end  of  the  subroutine  description 
so  as  not  to  interrupt  the  flow  of 'text.  Statement  numbers  are  shown 
so  that  the  user  may  refer  to  blocks  of  code  in  the  subroutine  listing. 
The  subroutine  listing  is  presented  following  the  flow  diagrams. 

Figure  E-7  illustrates  the  preliminary  calculations  performed  by  GEOMRY. 
First,  GEOMRY  calls  subroutine  COLIN  to  insure  that  the  receiver  point 
and  the  roadway  segment  are  not  col i near.  Next,  GEOMRY  calculates  the 
distance,  DIST,  and  the  point  on  the  line  through  the  roadway  segment 
end  points,  XNPT,  using  subroutine  NRPT.  The  angle,  ANG1  ,  between  the 
normal  from  the  receiver  point  to  the  roadway  line  and  the  line  from 
the  receiver  point  to  the  roadway  end  point,  XR10,  is  calculated  using 
subroutine  ANGLE. 

As  indicated  in  Figure  E-7,  the  preliminary  selection  of  barriers  is 
accomplished  by  calling  subroutines  DEGEN  and  BLOCN  to  determine  if 
barrier  segments  occurr  internally  to  the  x-y  plane  triangle  formed  by 
the  roadway  segment  and  receivers.  (See  Figure  E-2)  If  a  potential 
barrier  is  encountered,  barrier  data  is  stored  internally  to  GEOMRY. 
Otherwise,  the  barrier  segment  is  ignored.  All  barrier  segments  are 
checked  for  each  call  to  subroutine  GEOMRY.  The  preliminary  selection 
of  absorptive  ground  strips  is  analogous  to  the  procedure  described 
for  barriers. 

Following  the  preliminary  selection  of  barriers  and  ground  strips, 
GEOMRY  then  begins  the  detail  calculation  of  barrier  diffraction. 
The  flow  diagram  for  these  considerations  is  presented  in  Figure  E-8. 
During  this  step  in  the  computation  the  roadway  segment  being  analyzed 
is  subdivided  to  ensure  that  uniform  reception  of  acoustic  intensity 
at  the  receiver  occurs  (See  Equation(A-21)).  The  path  length  difference 
is  initialized  to  ensure  that  barrier  attention  is  zero  (DELP0=-0.2). 
This  initialization  corresponds  to  an  octave  band  center  frequency  of 
500  Hz.  The  subsegment  of  roadway  being  analyzed  is  carried  internally 
as  (XR1.XK). 
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GEOMRY  bases  the  selection  of  significant  barrier  diffraction  using 
the  source  height  adjustment  specified  for  automobiles  and  light  trucks. 
Once  the  subdivision  of  the  roadway  has  proceeded  so  that  the 
criteria  of  Equation(A-21)has  been  satisfied,  the  path  length  differ- 
ence for  each  vehicle  type  is  computed.'  These  values  are  compared 
with  the  maximum  lvalues  of  path  length  difference  stored  in  array 
DELPO  to  ensure  that  the  maximum  value  for  the  path  length  difference 
is  retained.  Hence,  barrier  attenuation  is  calculated  by  vehicle  type 
using  the  maximum  value  of  the  path  length  difference  encountered 
between  the  roadway  subsegment  and  the  receiver.  This  procedure  allows 
consideration  of  only  the  most  effective  barrier  in  multi-barrier 
configurations  (See  Section  A. 6,  Appendix  A).  The  reader  should  be 
aware  that  the  maximum  path  length  difference  may  not  correspond  to 
the  highest  barrier  but  depends  upon  source  location,  barrier  elevation, 
and  receiver  location. 

Figure  E-9  presents  the  flow  diagram  for  the  calculation  of  sound 
level  attenuation  resulting  from  ground  absorption.  If  significant 
diffraction  has  been  encountered  for  the  roadway  subsegment  under 
analysis,  GEOMRY  disregards  the  attenuation  resulting  from  a  ground 
strip  and  proceeds  to  the  consideration  of  reflections.  Further,  if 
the  direct  ray  path  from  the  source  roadway  subsegment  to  the  receiver 
passes  above  the  top  of  the  ground  strip  (10  feet  above  ground  eleva- 
tion for  shrubbery,  30  feet  for  trees)  the  attenuation  due  to  the  ground 
strip  is  disregarded.  If  GEOMRY  determines  that  ground  strip  attenuation 
is  significant,  the  attenuation  is  calculated  as  described  in  Section 
A. 7,  Appendix  A. 

Figure  E-10  presents  the  flow  diagram  for  the  preliminary  selection  of 
reflectors  in  GEOMRY.  By  the  introduction  of  an  image  receiver  location, 
the  reflection  problem  becomes  similar  to  the  diffraction  problem. 
A  reflector  in  the  path  from  the  road  segment  to  an  image  receiver  is 
effective  whenever  a  barrier  in  the  path  from  the  road  segment  to  a 
receiver  strongly  diffracts  the  sound. 
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Also,  the  intensity  of  the  direct  (or  diffracted)  sound  from  the 
road  segment  considered  is  compared  to  the  potential  maximum  contri- 
bution of  each  reflection.  This  check  assures  that  only  essential 
reflectors  are  considered.  Since  a  reflector  might  not  be  high 
enough  or  reflections  might  be  strongly  attenuated  by  diffraction 
at  additional  barriers  in  the  ray  path,  the  reflectors  found  at 
this  stage  are  considered  "potential"  reflectors. 

During  the  preliminary  selection  of  reflectors  GEOMRY  also  conducts 
the  preliminary  selection  of  barriers  which  can  possibly  diffract  the 
reflected  sound.  The  check  performed  is  based  on  the  length  and 
orientation  of  a  barrier  section  and  on  the  distance  from  the  image 
receiver  relative  to  the  respective  parameters  of  the  road  section 
and  the  receiver  considered. 

Figure  E-ll  is  the  flow  diagram  for  the  block  of  code  in  GEOMRY  that 
considers  barrier  elevation  as  related  to  potential  reflection  of 
sound.  If  the  height  difference  above  the  reflector  of  a  sound  ray 
from  the  nearest  point  on  the  road  segment  leads  to  the  acceptance 
or  rejection  of  the  reflector,  no  further  check  is  made  for  other  source 
points  on  the  road  segment. 

Since  diffraction  of  the  reflected  ray  is  not  yet  checked,  a  reflection 
is  still  called  a  potential  one  and  the  end  point  of  the  road  segment 
is  preliminary.  As  the  final  step  in  the  reflector  problem,  GEOMRY 
considers  possible  diffraction  both  before  reflection  and  after 
reflection. 

Figure  E-12  presents  the  flow  diagram  for  consideration  of  diffraction 
before  reflection.  Checks  for  barriers  in  the  area  defined  by  pro- 
jections of  the  four  points  XR1 ,  XR2,  XRB3,  and  XRB4into  the  x-y 
plane  are  made  by  considering  first  the  triangle  containing  image 
rays  and  then  the  triangle  formed  by  the  road  segment  and  the  image 
receiver. 

If  a  barrier  is  found  to  be  high  enough  for  possible  diffraction, 
the  reflector  is  checked  again  to  determine  whether  or  not  it  is 
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high  enough  to  reflect  the  diffracted  rays  (which  now  come  from  an 
effective  source  that  might  by  considerably  higher  than  the  roadway). 

Calculation  of  the  path  length  difference  between  diffracted  and 
direct  rays  from  only  the  near  point  of  the  road  segment  implies 
that  the  diffraction  of  sound  rays  from  other  source  points  is  about 

the  same. 

Very   strongly  diffracted  reflections  are  neglected.  The  decision  is 
made  on  the  basis  of  the  diffraction  of  sound  from  trucks,  since 
rays  from  cars  are  even  more  strongly  diffracted. 

Figure  E-13  presents  the  flow  diagram  for  the  consideration  of 
diffraction  after  reflection.  Checks  are  made  for  diffracting  barriers 
in  the  triangle  defined  by  projections  of  the  reflector  segment  (XRB3, 
XR84)  and  the  receiver  XRC  onto  the  x-y  plane. 

After  a  barrier  has  been  found  which  is  high  enough  for  possible 
diffraction,  the  reflector  is  checked  to  determine  whether  or  not 
it  is  high  enough  to  reflect  sound  towards  the  top  line  of  the 
diffracting  barrier,  which  might  be  considerably  higher  than  the 
receiver. 

Calculation  of  the  path  length  difference  implies  simplifying  assump- 
tions similar  to  those  for  the  problem  of  diffraction  before  reflec- 
tion. 

Reflections  are  neglected  in  the  case  of  diffraction  before  and  after 
reflection  and  in  the  case  of  very  strong  diffraction  after  reflection. 

Figure  E- 14  presents  the  flow  diagram  representing  the  block  of  code 
in  GEOMRY  that  performs  the  final  computations  and  accumulation  of 
sound  intensities  at  the  receiver.  These  calculations  consider 
barrier  diffraction,  reflections  (gain  of  direct  sound),  atmospheric 
absorption,  and  ground  absorption.  The  calculations  are  directly 
related  to  the  expression  given  in  Appendix  A,  Equation  (  A-9)  for 
the  acoustic  intensity.  For  the  octave  band  center  frequency  of 
500  Hz,  the  cumulant,  «*,  of  the  acoustic  intensity  is  calculated 
(See  Equation  A-ll)and  accumulated. 
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After  the  calculation  and  accumulation  of  acoustic  intensity,  GEOMRY 
checks  to  see  if  the  subsegment  end  point  XR2  is  within  a  prescribed 
distance  to  the  end  points  of  the  subsegments  defining  the  segment  end 
point  XR20,  or  the  subsegment  end  point  XR2G  corresponding  to  a  ground 
strip,  or  a  subsegment  end  point  XR2D  corresponding  to  a  diffraction. 
GEOMRY  branches  internally  to  continue  the  roadway  segment  analysis 
until  the  point  XR2  is  within  1  foot  of  the  segment  end  point  XR20. 
When  this  criteria  is  satisfied,  GEOMRY  returns  control  to  the  MAIN 
program. 

SUBPROGRAMS  REQUIRED 

See  Figure  D-l,  page  D-2. 

VARIABLES 

Due  to  the  lengthly  and  complex  nature  of  subroutine  GEOMRY,  variables 
are  listed  in  alphabetical  order. 

A  Atmospheric  attenuation  factor,  ground  absorption  para- 
meter 

ADST  ANG/DIST 

ANG  Angle  subtended  at  receiver  by  road  segment 

ANG1  Angle  o-  in  Fig.  A-l 

ANG2  Angle  a2  in  Fig.  A-l 

ANG I  Angle  subtended  at  image  receiver  by  road  segment 

ANGIMG  Angle  subtended  at  image  receiver  by  barrier  section 

Bl  End  point  of  barrier  section 

BGS  Width  of  absorptive  ground  strip 

BGT  Width  of  absorptive  ground  strip 

BX  x-coordinate  of  barrier  point 

BY  y-coordinate  of  barrier  point 

BZ  z -coordinate  of  barrier  point 

CA1  cos  (a..) 
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CA2   cos(a2) 

CPREV  Angular  function  C   , 
°  n-1 

CQ  Factor  accounting  for  standard  deviation  of  reference 
level 

DELM  Mean  path  length  difference 

DELP  Path  length  difference 

DELP0  Maximum  path  length  difference  for  diffraction  of  direct 
ray 

DELP1  Maximum  path  length  difference  for  diffraction  before 
reflection 

DELP2  Maximum  path  length  difference  for  diffraction  after 
reflection 

DELPA  Path  length  difference  for  diffraction  of  direct  ray 

DELR  Path  length  difference  for  reflected  ray 

DELTA  Distance  along  the  roadway 

DIST  Distance  from  the  receiver  to  the  source  line 

DISTI  Distance  from  the  image  receiver  to  the  source  line 

DISTJ  Distance  from  the  image  receiver  to  the  diffracting 
barrier 

DL  Mean  path  length  over  an  absorptive  ground  strip 

DN1   Distance  from  the  receiver  to  the  nearest  point  of  the 
road  segment 

DN1I  Distance  from  the  image  receiver  to  the  nearest  point  of 
the  road  segment 

DN2  Distance  from  the  image  receiver  to  the  nearest  point  of 
the  diffracting  barrier 

DR1  Distance  from  the  receiver  to  the  initial  point  of  the 
road  segment 

DRK  Distance  from  the  receiver  to  the  preliminary  end  point 
of  the  road  segment 

FB  Attenuation  factor  accounting  for  diffraction  and 
reflections 

FCTR  Weighting  factor  for  reflections 
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FG  Ground  attenuation  factor 

HDIFA  Height  of  ray  from  source  point  XR1  to  receiver  XRC  above 
barrier 

HDIFF  Height  of  ray  above  barrier,  reflector,  or  ground  strip 

HGA  Data  for  effective  height  of  ground  cover 

I  Index 

I A  Alphanumeric  "A" 

I BAR  Barrier  number 

IBLAST  Barrier  type 

ICODE  Number  for  intermediate  printout 

IDUM  Index  for  kind  of  absorptive  ground  cover 

IDXR  Number  of  reflections 

IERR  Error  index 

IGRA  Ground  strip  number 

IF  Index  for  frequency  bands 

II  Index 

IK  Frequency  band  number 

IKIN  Index  for  kind  of  absorptive  ground  cover 

IP  Frequency  band  number 

IQ  Index 

IR  Alphanumeric  "R" 

ISEG  Barrier  section  number 

IT3  2N  -  1 

ITRIG  Trigger 

KAR  Alphanumeric  indicator  for  type  of  barrier 

KBAR  Total  number  of  barrier  sections;  index  for  barriers 

KBAR1  Reflector  number  in  storage 

KBAR2  Diffractor  number  in  storage 
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KBCODE  Indicator  for  relative  location  of  barrier 

KCD  Indicator  for  relative  location  of  barrier 

KDIFF  Barrier  number  in  storage 

KF  Index  for  frequency  bands 

KGA  Number  of  ground  strips  stored 

KGCODE  Indicator  for  relative  location  of  ground  strip 

KIMG  Reflection  number 

KNUMB  Total  number  of  relevant  barrier  sections 

KREF  Reflector  number  stored 

KRDNUM  Total  number  of  barrier  sections  relevant  to  reflection 

KRFDF  Barrier  number  stored 

KRNUM  Total  number  of  relevant  reflector  sections 

KTRIG  Indicator  for  intersection  of  barrier  or  ground  strip 

LOC  Indicator  for  relative  location  of  barrier  or  ground 
strip 

MDIFF  Indicator  for  diffraction  before  reflection 

MODD  Indicator  for  diffraction  of  direct  ray 

MR  Roadway  number 

N  Cumulant  numbers 

NB  Number  of  barriers 

NBSEC  Number  of  barrier  sections 

NBSM1  Number  of  sections  for  one  barrier 

NDIFF  Number  of  barriers  stored 

NF  Number  of  frequency  bands 

NG  Number  of  absorptive  ground  strips 

NIMG  Number  of  reflections 

NLIM  Number  of  points  defining  one  barrier 

NQ  Number  of  vehicle  types 


E-90 


NQQ  Number  of  groups  within  one  vehicle  type 

NQS  Vector  notation  for  number  of  vehicle  groups 

NR  Number  of  roadways 

NREF  Number  of  reflectors  stored 

NRFDF  Number  of  barriers  stored 

PP  Frequency  band  number 

Rl  End  point  of  potential  reflector 

RATIO  Weighting  factor  for  reflected  rays 

RBI  End  point  of  barrier  in  path  of  reflected  ray 

RDIN  Vector  notation  for  initialization  parameters 

SA1  sin  (a,) 

SA2  sin(a2) 

Tl  Temporary  variable 

T2  Temporary  variable 

T3  Temporary  variable 

TA1  End  point  on  center  line  of  absorptive  ground  strip 

VEXPH  Vehicles  per  foot 

XB1  Initial  point  of  barrier  stored 

XB2  End  point  of  barrier  stored 

XDB1  Initial  point  of  barrier  stored 

XDB2  End  point  of  barrier  stored 

XDB3  Initial  point  of  effective  barrier  segment 

XDB4  End  point  of  effective  barrier  segment 

XG1  Initial  point  of  center  line  of  absorptive  ground  strip 

XG2  End  point  of  center  line  of  absorptive  ground  strip 

XG3  Initial  point  of  effective  ground  strip  segment 

XG4  End  point  of  effective  ground  strip  segment 

XIMG  Vector  of  image  receivers  for  all  reflections 
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XJ  Preliminary  end  point  of  effective  reflector  segment 

XK  Preliminary  end  point  of  road  segment 

XKA  Cumulant  of  the  A-weighted  sound  intensity 

XKI  Preliminary  end  point  of  image  road  segment 

XLA  A-weighted  intensity  in  frequency  bands 

XLE  Mean  intensity 

XLREF  Vector  notation  for  reference  intensities 

XN1  Point  on  road  segment  nearest  to  receiver 

XN1I  Point  on  road  segment  nearest  to  image  receiver;  point 
on  image  road  segment  nearest  receiver 

XN2  Point  on  barrier  segment  nearest  to  image  receiver 

XNPT  Point  on  source  line  nearest  to  receiver 

XNPTI  Point  on  source  line  nearest  to  image  receiver 

XNPTJ  Point  on  image  source  line  nearest  receiver 

XR  X-coordinate  of  receiver 

XR1  Initial  point  of  road  segment 

XRljD  Initial  point  of  road  section 

XR1I  Initial  point  of  image  road  segment 

XR2  End  point  of  road  segment 

XR2J9  End  point   of   road   section 

XR2D  End  point  of  road  segment  with  constant  attenuation  by 
diffraction 

XR2G  End  point  of  road  segment  with  constant  attenuation  by 
ground  absorption 

XR2I  End  point  of  image  road  segment 

XRB1  Initial  point  of  reflector  stored 

XRB2  End  point  of  reflector  stored 

XRB3  Initial  point  of  effective  reflector  segment 

XRB4   End  point  of  effective  reflector  segment 
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XRC  Receiver  point 

XRCI  Image   receiver  point 

XXG1  X-coordinate   of  point   on  ground   strip  center  line 

YR  Y-coordinate   of  receiver 

YYG1  Y-coordinate  of  point   on  ground   strip  center   line 

ZN10  Z-coordinate   of  XN1   or  XN1I 

ZR  Z-coordinate   of  receiver 

ZS  Height   adjustment   for  vehicles 

ZZG1  Z-coordinate  of  point   on  ground   strip  center   line 

RESTRICTIONS 

Due  to  the  complex  nature  of  subroutine  GEOMRY,  the  user  should  use 
caution  in  attempting  modifications.     Changes  in  the  direct  calcula- 
tion schemes  related  to  the  acoustic  models  assumed  are  found  in  the 
following  lines  of  code: 

Calculation  of  Ground  Absorption:     Lines  160  to  173 
Calculation  of  Barrier  Attenuation:     Lines  326  to  338 
Calculation  of  Reflection  Gain:     Lines  340  to  352 
Calculation  of  Normalized  Mean  Intensity  and  Dispersion 

of  Mean  Intensity:     Lines  356  to  381 
Calculation  of  Atmospheric  Absorption:     Line  364. 

Note:     If  the  user  desires  to  modify  the  barrier  model  described  in 

this  manual,  he  is  warned  to  check  subroutine  GEOMRY  thoroughly  as 

several   important  criteria  required  for  decisions  concerning  the 

accumulation  of  uniform  acoustic  intensity  at  a  receiver  are  affected. 

Similarly,  the  user  should  not  attempt  to  blindly  alter  the  code  for 

dimensions  in  metric  units  without  appropriate  modification  of  GEOMRY 

and  other  subprograms. 

ACCURACY 

Dependent  upon  the  acoustic  models  utilized  in  the  problem  formulation 

SIZE 

17624g 

REFERENCES 

See  Appendix  A  of  this  manual. 
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PRELIMINARY  COMPUTATIONS 


Find  point  XNPT  on  source  line  containing 
the  road  section  nearest  to  receiver  XRC 


I 


Compute  angle  ANG1  subtended  at  receiver 
XRC  by  line  segment  XRl,  XNPT 


PRELIMINARY  SELECTION  OF  DIFFRACTING  BARRIERS 


For  all  sections  of  all  barriers: 


10 


I 


Does  barrier  section  or  a  part  of  it 
lie  in  the  triangle  formed  by  the 
road  section  XR10,  XR20  and  the 
receiver  XRC? 


Store  information  about 
the  barrier  endpoints 
and  the  relative 
location 


Disregard  the 
barrier 
section 


15 


T 


PRELIMINARY  SELECTION  OF  ABSORBING  GROUND  STRIPS 


For  all  ground  strips 


Does  the  center  line  of  the 
ground  strip  or  a  part  of  it 
lie  in  the  triangle  formed  by 

the  road  section  XR10,  XR20 
and  the  receiver  XRC? 


Store  the  information  about 

the  ground  strip  and  the 

relative  location 


18 


T 


Disregard  the 
ground 
strip 


FIGURE  E-7.  SUBROUTINE  GEOMRY:  FLOW  DIAGRAM  OF  PRELIMINARY  OPERATIONS 
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DIFFRACTION  OF  DIRECT  RAY 


For  all  vehicle  types: 


Initialize  path  length  difference  between  a  dif- 
fracted ray  and  a  direct  ray  to  DELP0  =  -0.2 


For  all  barriers  in  storage 
Y 


30<> 


40 


Does  barrier  possibly  shield  the 
entire  road  section  XR10,  XR20? 


Find  break  point  XK  between  possibly 
shielded  and  unshielded  road  segments 


Use  road  segment 
endpoint  XR2  as 
preliminary  end- 
point  XK 


< 


Reduce  road  seg- 
ment considered 
to  XRl,  XR2=XK 


Is  initial  segment  XR1 , 
XK  possibly  shielded? 


45 


For  all  vehicle  types: 


<>* 


Find  height  HDIFF  above  barrier  of  sound 

ray  from  nearest  point  on  the  road 

segment  XNl  to  receiver  XRC 


Disregard  barrier 


For  cars  only: 
Is  HDIFF  >  20? 


70 


-<> 


50<> 


Find  path  length  difference  DELP 

between  diffracted  and  direct 

ray  from  XNl  and  XRC 


N 


< 


Is  diffraction  stronger  than 
previously  calculated? 


53 


J 


Has  barrier  been  found  most 
important  for  cars? 


65 


J 


FIGURE  E-8.   SUBROUTINE  GEOMRY :  FLOW  DIAGRAM  OF  BARRIER  DIFFRACTION  CONSIDERATIONS 

FOR  THE  DIRECT  RAY 
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53 


t 


65 


For  cars  only: 


If  DELP  is  not  sufficiently  similar  to  path  length 

differences  calculated  with  source  points  XR1  and 

XK,  find  a  new  XK  such  that  a  nearly  uniform  path 

length  difference  exists  between  diffracted  and 

direct  rays  from  all  points  on  road  segment  XR1 , 

XK.   Find  new  DELP. 


59o 


Replace  DELP0  by  DELP 

I 


For  trucks  only: 
Is  DELP0  <  5.65? 


I 


Replace  road  seg- 
ment endpoint  XR2 
by  the  road  sec- 
tion endpoint  XR20 


Set  trigger 
I 


Does  barrier  shield  en- 
tire remaining  road 
section  XR1 ,  XR20 


Denote  prelimi- 
nary endpoint  XK 
as  the  road  seg- 
ment endpoint  XR2 


< 


66 

T 


Is  trigger  set 


71 


1/  70 


Continue  for  re- 
maining barriers 


Compute  angle  ANG  subtended  at 
receiver  by  road  segment  XRl,  XR2 


Compute  barrier  attenuation  factor  FB(1,1) 
for  A-weighted  overall  level  for  cars 


Denote  endpoint  XR2  as  XR2D 


FIGURE  E-8.  (Concluded) 
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GROUND  ABSORPTION 

I 


Disregard  ground  absorption  for  road 
segments  shielded  by  a  barrier 


For  all  ground  strips  in  storage: 
Y 


-::^p^=^ 


Does  strip  possibly  absorb  sound  from 
entire  road  section  XR1J3,  XR20? 


N 


Find  break  point  XK  between  possibly 
affected  and  unaffected  road  segments 


Use  road  segment 
endpoint  XR2  as 
preliminary  end- 
point  XK 


< 


Reduce  road  seg- 
ment considered 
to  XR1,  XR2  =  XK 


Is  the  initial  road  segment 
XRl,  XK  possibly  affected? 


75 


<>Y 


Find  the  height  HDIFF  above  ground  strip  of 
sound  ray  from  nearest  point  on  the  road 
segment  XN1  to  receiver  XRC 


I 


Is  HDIFF  greater  than  the 
reference  height  for  the 
type  of  absorbing  strip? 


Disregard 

absorbing 

strip 


N 


Compute  mean  path  length 
DL  through  strip 


For  all  frequency  bands: 


Compute  ground  attenua- 
tion factor  FG 


77  ih  Continue  for  remaining  strips 


Denote  endpoint  XR2  as  XR2G 


FIGURE  E-9.  SUBROUTINE  GEOMRY:  FLOW  DIAGRAM  OF  ABSORPTIVE 

GROUND  STRIP  CONSIDERATIONS 
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PRELIMINARY  SELECTION  OF  REFLECTORS 
For  all  sections  of  all  barriers  in  storage 


k 


Find  receiver  image  location 
XRCI  relative  to  barrier 


Find  distance  DISTI  between 
XRCI  and  source  line 


Compute  Angle  ANGIMG  sub- 
tended by  barrier  at  XRCI 


Is  reflection  possibly  important 
i.e. ,  is 


DIST*  ANGIMG 


DISTI*  ANG*  FB(1,1)  ~ 


>  0.1  ? 


Store  barrier  endpoints  and  an 
identification  number.   Barrier 
is  a  potential  diffractor  for 
reflected  rays 


< 


I 


Is  barrier  absorpti 


ive?  }- 


N 


Does  the  barrier  section  or  a 
part  of  it  lie  in  the  triangle 
formed  by  the  road  section  XRl , 
XR2  and  the  image  receiver  XRCI? 


Store  barrier  endpoints  and  an  identifi- 
cation number.   Barrier  is  a  potential 
reflector. 


85  it 


Disregard 
barrier 


Disregard 
barrier  as 
reflector 


Continue  for 
remaining  barriers 


FIGURE  E-10.  SUBROUTINE  GEOMRY:  FLOW  DIAGRAM  FOR  THE  PRELIMINARY 

SELECTION  OF  REFLECTORS 
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CALCULATION  OF  POTENTIAL  REFLECTIONS 


For  all  reflectors  in  storage: 


t 


Find  receiver  image  location 
XRCI  relative  to  reflector 


I 


Find  breakpoint  XK  between 

road  segments  with  and 

without  possible  reflections 


I 


Is  sound  from  the  initial 
road  segment  XR1,  XK 
possibly  reflected? 


Find  height  difference  HDIFF  above 
reflector  of  sound  ray  from  nearest 
point  on  the  road  segment  XN1I  to 
image  receiver  XRCI 


< 


I 


Is  HDIFF  >  -2.0? 


> 


Reduce  road  segment  con- 
sidered to  XR1,  XR2  =  XK 


I 


Find  effective  segment  of 
the  reflector  XRB3,  XRB4 


For  all  vehicle  types; 


Initialize  path  length  differences 

between  diffracted/reflected  and 

simply  reflected  rays  to  DELPl  = 

-0.2  (for  diffraction  before 

reflection)  and  to  DELP2  =  -0.2 

(for  diffraction  after  reflection) 


950 


Reduce  road 
segment  con- 
sidered to 
XR1,  XR2=XK 


175 


FIGURE  E-ll.   SUBROUTINE  GEOMRY 


FLOW  DIAGRAM  FOR  CALCULATION  OF 
POTENTIAL  REFLECTIONS 
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CONSIDERATION  OF  DIFFRACTION  BEFORE  REFLECTION 
For  all  barriers  in  storage: 


<C 


s  barrier  ident 
with  reflecto 


tical  \j 


Is  barrier  outside  triangle  formed 
by  reflector  segment  XRB3,  XRB4 
and  image  reflector  XRCI? 


Is  barrier  outside  triangle 
formed  by  road  segment  XRl, 
XR2  and  image  receiver  XRCI? 


N 


Find  breakpoint  XK  between  road 
segments  with  and  without 
diffraction  of  reflected  ray 


Are  reflections  from  the 
initial  road  segment  XRl, 
XK  possibly  diffracted? 


For  cars  only: 


Find  height  difference  HDIFF  above 
barrier  of  reflected  sound  ray 
from  nearest  point  on  road  seg- 
ment XN1I  to  image  receiver  XRCI 


< 


Is  HDIFF  >  20? 


> 


Reduce  road 
segment  con- 
sidered to 
XRl,  XR2=XK 


110 


Disregard 
barrier 


N 


Assume  a  source  to  be  located  on' 

top  of  the  barrier  between  the 
shielding  segment  XDB3,  XDB4  and 
find  the  source  point  XM2  nearest 
to  the  image  receiver  XRCI 


FIGURE  E-12.  SUBROUTINE  GEOMRY 


FLOW  DIAGRAM  FOR  CONSIDERATION  OF  DIFFRACTION 
BEFORE  REFLECTION 
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f 


Find  height  difference  HDIFF  above  re- 
flector of  sound  ray  from  XN2  to  XRCI 


< 


Is  HDIFF  >  -2.0? 


For  all  vehicle  types: 


D- 


N 


Calculate  path  length  difference 
DELP  between  diffracted/ 
reflected  and  simply  reflected 
ray  from  XN1I  to  XRCI 


< 


Is  DELP  >  5.65  for  trucks? 


> 


Is  diffraction  stronger  than 
previously  calculated? 


100  iiY 


Replace  DELPl  by  DELP 


105<  ► 


Reduce  road  segment  consid- 
ered to  XR1,  XR2  =  XK 


170 


Reduce  road  segment 
considered  to  XR1 , 
XR2  =  XK  and  disre- 
gard reflector 


Continue  with  next 
reflector 


Is  this  the  first 
vehicle  type? 


J 


Disregard  barrier 


110 


Continue  with  next 
barrier 


FIGURE  E-12.  (Concluded) 
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CONSIDERATION  OF  DIFFRACTION  AFTER  REFLECTION 


Find  image  road  section  XR1I,  XR2I 

relative  to  reflector  XRB1,  XRB2 

and  image  nearpoint  XNPTJ 


For  all  barriers  in  storage: 


< 


-*■! 


Is  barrier  identical 
with  reflector? 


■*+■ 


Find  endpoint  XRB4  of 
possibly  effective  reflector 


I 


Is  barrier  lying  outside  triangle 
formed  by  effective  reflector  seg- 
ment XRB3,  XRB4  and  receiver  XRC? 


120 


> 


N 


Is  barrier  possibly  shielding  the 
entire  effective  reflector  segment 
XRB3,  XRB4  from  the  receiver  XRC? 


N 


Find  breakpoint  XKI  on  the  image  road 
section  with  the  breakpoint  XJ  bet- 
ween the  possibly  shielded  and  un- 
shielded segments  of  the  reflector 
segment  XRB3,  XRB4 


I 


Are  reflections  from  the  initial 
image  road  segment  XRlI, 
XKI  possibly  diffracted? 


Use  image  road  segment 
endpoint  XR2I  as  pre- 
liminary endpoint  XKI 


125 


N 


140 


Reduce  image  seg- 
ment considered 
to  XRlI,  XR2I=XKI 


Find  endpoint  XDB3  of 
diffracting  barrier  segment 


I 


Find  height  difference  HDIFF  above 
reflector  of  sound  ray  from  image 
source  XRlI  to  barrier  point  XDB3 


T 
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<c 


i 


Is  HDIFF  >  -2.0? 


165 


For  all  vehicle  types: 


Find  height  difference  HDIFF  above 
barrier  of  sound  ray  from  image 
source  XN1I  (adjusted  in  height 

for  vehicle  type)  to  receiver  XRC 


< 


Is  HDIFF  >  20.0  for  trucks? 


> 


N 


Calculate  path  length  difference 
DELP  between  reflected/diffracted 
and  simply  reflected  ray  from 
nearpoint  XN1I  on  image  road 
segment  to  receiver  XRC 


<. 


I 


s  sound  ray  diffracted  before 
reflection  and  DELP  >  -0.2? 


>• 


N 


Is  diffraction  stronger  than 
previous  value  for  diffrac- 
tion after  reflection? 


Replace  DELP2  by  DELP 


For  trucks  only: 

< 


Is  DELP2 


1  5.65?  \ 


Find  endpoint  of  road 
segment  XK  from  image 
point  XKI,  reduce 
road  segment  consid- 
ered to  XR1,  XR2=XK, 
and  disregard  reflector 


I 


Continue  with 
next  reflector 


Disregard  barrier 


I 


140 


Continue  with 
next  barrier 


N 
After  completion  of  diffraction: 


I 


Reduce  the  image  road 

segment  considered  to 

XR1I,  XR2I  =  XKI 


Note  contribution  of  up  to  10  reflections 
in  terms  of  the  path  length  difference 
DELR  for  diffracted  rays  and  of  the 
image  receiver  location  X1MG 


FIGURE  E-13.    (Concluded) 
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FINAL  CpMPUTATIONS  AND  SUMMATION  OF  SOUND  INTENSITIES 
I 


Compute  angle  ANG  subtended  at  receiver 
XRC  by  road  segment  XRl ,  XR2 


I 


ADST  =  ANG/DIST 


Compute  angle  ANG2  subtended  at  receiver 
XRC  by  road  segment  XNPT,  XR2 


For  all  vehicle  types  and 
all  frequency  bands: 


195 


Find  attenuation  factor  FB  due 
to  diffraction  of  direct  ray 


For  all  reflections: 


Compute  angle  ANGI  subtended  at  image  re- 
ceiver XlMG  by  road  segment  XRl,  XR2 


Find  distance  DISTI  from  source 
line  to  image  receiver 


Calculate  the  weighting 
factor  for  reflections: 
RATIO  =  ANGI/ (DISTI*  ADST) 


For  all  vehicle  types  and 
all  frequency  bands: 


Find  the  gain  of  direct  sound  due  to  re- 
flections by  summation  of  FB  and  the 
weighted  intensity  factors  BARFAC  of 
simple  and  diffracted  reflections 


230 


Find  distance  DNl  from  receiver 

to  nearest  point  on  road 

segment  XRl,  XR2 


T 


FIGURE  E-14. 
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SUMMATION  OF  SOUND  INTENSITIES 
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For  all  frequency  bands: 


Compute  atmospheric  absorp- 
tion factor  A 


Calculate  the  mean  energy  XLE 
over  all  sets  NQS  of  all  vehi 

and  with  consideration  of  th 
intensity  XLREF,  the  vehicle 
VEXPH,  the  dispersion  of  refe 
CQ,  the  factor  FB  resulting  f 

tion  and  reflections,  the  sc 
ADST,  the  atmospheric  absorpt 
and  the  ground  absorption 


by  summation 
cle  types  NQ 
e  reference 
concentration 
rence  levels 
rom  diffrac- 
aling  factor 
ion  factor  A, 
factor  FG 


242 


Initialize  for  remaining  road 
segments:   ANG1  =  |ANG2| 


Is  endpoint  XR2  of  road  seg- 
ment within  1  ft  of  endpoint 
XR20  of  road  section? 


< 


N 


Move  endpoint  XRl  towards 
XR2JJ  1  ft  beyond  XR2 


< 


Is  endpoint  XR2  within 
1  ft  of  XR2G? 


247<> 


< 


Is  endpoint  XR2  within 
1  ft  of  XR2D? 


72 


25<> 


N 


Continue  with  diffraction  of  direct 
ray  for  remaining  road  segment 


^~yi- 


Continue  with 

reflection 
problem  for 
remaining 
road  segment 


Continue  with 
ground  absorp- 
tion problem 
for  remaining 
road  segment 


FIGURE  E-14.   (Concluded) 


E-105 


C   GEOMRY  06/79    SA1  MOD 

0001  SUBROUTINE  GEOMRY  (XR, YR. ZR.XR10 ,XR20,IERR. MR , GAM) 

0002  IMPLICIT  REAL*8  (A-H.O-Z) 

0003  EXTERMAL  FNC1.FNC2 

0004  DIMENSION  XG1(3),XG2(3).XG3(3).XG4(3) 

000?  DIMENSION  81 (3,2,20) ,R1 (3,2,20 ), RBI ( 3,2 ,20) ,TA1 (3,2.20) 

0006  DIMENSION  K9C0DE ( 220) .KNUMB (220 ) ,KRNUMB (220) ,KRDNUM (220) 

0007  DIMENSION  KGCODE (  10 ) ,BGT( 10 ) . 1KIN ( 10) 

0008  DIMENSION 

D   DELP0(4)  , DELPHI  ),DELP2(4)  ,FB< 9,4 ) ,DELR(4 .10) ,FG(9) ,HGA ( 2) , 

X   XB1(3),XB2(3),XDB1(3),XDB2(3),XDB3(3),XDB4(3). 

X   XRB1(3),XRB2(3),XRB3(3)  ,XRB4  (3  )  ,XRC(  3  )  ,XRC1(3), 

X   XR1(3).XR2(3) ,XP1I(3),XR2I (3) ,XR 10(3) ,XR20( 3)  , 

X    XK(3),XKI(3),XJ(3),XNPT(3).XNPTI(3),XNPTJ(3), 

X    XN1(3),XN2(3) ,XN1I(3),XIMG(3,10) ,XR2D ( 3) ,XR2G (3) , 

Z    ZS(4) 

0009  DIMENSION    XH1 ( 3) , AUX( 20) 

0010  C0MM0N/IN0U/1NPT.I0UT 

0011  C0MM0N/BLK2/NQ 

0012  COMMON  /INPTl/RCIN(6),TRDIN(6i 

0013  C0MM0N/INPT2/NR.NB.NG 

0014  C0MM0N/DRIV2/NQS(20,4),NF 

0015  COMMON  /DR1V3/XLFC9) 

0016  C0MPCN/DR1V4/CAP2 

0017  COMMON/STORE 4/XMPH( 20, 5, 4),VEXPH(  20, 5, 4) 

0018  COMMON/STORE 1/BX ( 20. 1 1 ), BY ( 20, 11),BZ( 20, 11 ),IBLAST( 20 1.NBSM1 (20) 

0019  COMMON/STORE  2/XXG  1(10,  2),  YYGl.tlO, 2  ),ZZG  1(10,  2), BGSt  10),  IDUM(  ID) 

0020  COMMON/GEOI/IBAF.ISECIGRA 

0021  COMMON  /INTER1/XLREF(3600),C0(3600) 

0022  COMMON  /FUNC/XGAM 

0023  COMMDN/TIT1/TRC(5,15),BLEV(15),ZZQ,IGOO(20,11),N 

0024  COMMON    /OPTION/KETIN,METOUT,IREFL 

0025  EQUIVALENCE     (RD1N (3) ,ZS( 1) ) 

0026  DATA         IR/2HR    / 

C027  DATA   HGA ( 1 ) ,HGA (2 )/10. ,30./ 

0028  XGAM    =    GAM 

0029  XRC(1)=XR 

0030  XRC(2)=YR 

0031  XRC(3)=ZR 

0032  1ERR=0 

0033  CALL    C0LIN(XP10,XR20,XRC) 

0034  CALL    NRPT(XR10,XR20,XRC,XNPT,DIST) 

0035  ANG1=ANGLE(XR10,XNPT,XRC) 
C  IC0DE  =  1 

C  WRITE ( TOUT, 1000 ) I  CODE ,XR10,XR20,XRC,XNPT 
C  PRELIMINARY  SELECTION  OF  BARRIERS 

0036  NDIFF=0 

0037  IF(NB.EO.O)    GO    TO    16 

0038  KBAR=0 

0039  DO    15    IBAR=1.NB 

0040  KAR=I3LAST(1B0R) 
C041  XB1(1)=BX(IBAR,1) 

0042  XB1(2)=BY(IBAR,1) 

0043  XB1 (3)=3Z(IBAR,1) 

0044  NLIM=NBSM1 (IPARI+1 

0045  DO    15    ISEG=2,NLIM 

0046  XB2(1)=8X( 1BAR,]SEG) 

0047  XB2(2)=BY(IBAR,ISEG) 

0048  XB2(3)=BZ( 1BAR.1SEG) 

0049  KBAR=KBAR+1 
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C  1C0DE=2 

C  WRITE(I0UT,1001)IC0DE.KBAR,XB1,XB2 

0050  10  CALL  DEGEN(XR10,XR20,XRC,XB1,XB2,LCC) 

0051  IF  (L0C.EQ.5)  CALL  BLOCN  (XR10.XR20.XRC  ,XB1  ,XB2,XK  ,LOC  ) 
C052  11  IF(L0C.EQ.0)Gn  TO  12 

0053  NDIFF=NDIFF*1 

005<i  KNUMB(NDIFF)=KBAR 

0055  K3C0DE(MD1FF)=LDC 

0056  CALL  REPLCE(XB1,B1U,1,NDIFF>) 

0057  CALL  RFPLCE(XB2,B1(1,2,NDIFF)) 
005R  12  CALL  REPLCE ( XB2  ,XB1 ) 

0059  15  CONTINUE 

C  PRELIMINARY  SELECTION  OF  STRIPS 

0060  16  KGA=0 

0061  IF(NG.E0.O)GO  TO  20 

0062  DO  18  IGRA  =  1  ,NG 
006?  XG1(1)=XXG1(IGRA,1) 

0064  XG1 (2)=YYG1( IGRA.l) 

0065  XG1  (3)=ZZG1< IGRA.l) 

0066  XG2(1)=XXG1( ICRA.2) 

0067  XG2(2)=YYG1( IGRA,2) 

0068  XG2(3)=ZZG1(  IGRA.2) 
C  IC0DE=3 

C  WRITE (I  OUT, 1001  )I CODE, IGRA,XG1 ,XG2 

0069  17  CALL  DEGEN {XR10 ,XR20,XRC ,XG1 ,XG2,L0C) 

0070  IF(L0C.EQ.5)CALL  BLOCN (XR10 ,XR20,XRC,XG1 ,XG2,XK,L0C ) 

0071  IF(LOC.EQ.O)GO  TO  18 

0072  KGA^KGA+1 

0073  KGCODE(KGA)=LOC 

0074  CALL    REPLCE(XG1,TA1(1  ,1,KGA  )) 

0075  CALL    3EPLCE(XG2,TA1(1 ,2,KGA)) 

0076  BGT(KGA)=B&S(IGRA) 

0077  1K1N(KGA)=IDUM( IGRA) 

0078  18    CONTINUE 

C  DIFFRAGTIONI    OF    DIRECT    RAY 

0079  20    CALL    REPLCE ( XR10 , XR1 ) 

0080  25    CALL   REPLCE ( XR20,  XR2) 

0081  CALL    REPLCF(XR1  ,XH1) 

0082  DO    30    IQ=1  ,N0 

0083  DELP0(I0)=-.2 
008<i  30    CONTINUE 

C  ICODEM 

C  WRITE(IOUT,1000)ICODE,XR1,XR2 

0085  IF(NDIFF.EO.O)GO  TO  71 

0086  ITR1G=0 

0087  DO  70  KDIFF=1,NDIFF 

0088  KBAR^KNUMB(KDIFF) 

0089  KCD=KBCODE(KDIFF) 

0090  CALL  REPLCE(BH1,1,K0IFF),XP1) 

0091  CALL    REPLCE(B1( 1 , 2,KD IFF ) ,XB2 ) 
C  IC0DE=5 

C  HRJTE(I0UT,1001)IC0DE,KBAR,XR1,XR2,XB1,XB2 

0092  IF(KCD.EQ.3)G0  TO  40 

0093  CALL  ENDPT(XR1,XR2,XRC,XB1,XB2,XK,KTR1GBIERR> 
009*.  IF(  IERR.EQ.4)  RETURN 

0095  IF(KTRIG.EO.O)GO  TO  70 

0096  GO  TO  45 

0097  40  CALL  REPLCE(XR2 ,XK) 

0098  45  MCDD=0 
C  IC0DE=6 

C  WRITE( I  OUT, 1001  1 1C0DE ,KCD ,XR2,XK 
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0099'  DO  60  10=1  ,M0 

0100  CALL  NR] (XRl,XK,XRC,XNPT,DISTtXNl.DNl) 

0101  XNK3)  =  XNK3J  ♦  ZS(IC) 

0102  XHK3)  =  XRK3)  ♦  ZS(IO) 

0103  DN1=AMAG(XRC,XN1) 

0104  HD1FF=HEIGHT(XN1, XRC.XP1  ,XB2) 

0105  IF(  IO.NE.DGO   TO    50 

0106  !F( HDIFF.GT.20. )G0    TO    70 

0107  50    DELP=0EL(XN1  ,XRC ,XB1 ,XE2 ,HD IFF.DN1 ) 
0.108  IF(PELP.GT.DE"LPO(IQ))GO    TO    53 

0109  52    1F(K0DD.E0.1 )G0    TO   65 

0110  GO    TO    70 

0111  53    IF    (1Q.NE.1)    GO   TO   59 

0112  0R1    =    AMAG(XPC.XHl) 
C  ADJUST    ELEVATION    OF    XK 

0113  XK(3)    =    XK(3)    +    ZS(10) 

0114  IF     (DABS(DRl-t)Nl)  .LT.l.)    GO    TO    54 

0115  HDIFA    =    HEIGHT(XHl,XRCtXBl,XB2) 

0116  DELPA    =    DEL(XH1,XRC,XR1,XB2, HDIFA, DR1J 

0117  TELK=    (DELPA    ♦    DELPJ/2. 
C  IC0DE=107 

C  WRITEdOUT.lCCOHCODE.OELP.DELPA 

0118  IF    ((DABS(DEIPA-DELP)-0.1-DELM/5D.*(1.+DELM}).LE.0.)    GO   TO   55 

0119  CALL    MIDP(XH1,XN1  .XK) 
C  IC00E=7 

C  WR1TE(I0UT,1000)ICCDE,XR1,XN1,XK 

0120  DELP  =  DELPA 

0121  54  IF  (IEPS(XK,XRC,XB1,XB2,DELP).EQ.0)  GO  TO  58 

0122  CALL   MIDP(XH1,XK,XK) 
C  IC0CE=8 

C  WRITE(I0UT,1000)1C0DE.XR1,XK 

012  3  GO    TO   54 

0124  55    DRK=   AMAG     (XRCXK) 

0125  IF     (DABS(DRK-DNl).LT.l.)    GO    TO    58 

0126  56    IF(IEPS    ( XK  ,XPC,XB1 .XB2.DELP) .EO.O)    GO    TO    58 

0127  CALL   MIDP(XN1,XK,XK) 

0128  GO    TO    56 

C  READJUST    XK    TO    GROUNO   LEVEL 

0129  58         XK(3)    =    XK(3)-ZS(I0) 

0130  IF     (DELP.LE.OELPO(D)    GO    TO    52 

0131  59   DELPO    (10)    =    DELP 
C  IC0DE=10 

C  KRITE(10UT,1000)ICODE,DELPO(1),DELPO(?) 

0132  M0DD=1 

0133  60    CONTINUE 

0134  IF(rELPD(2).LT.5.65)G0    TO    65 

0135  ITRIG=1 

0136  IF(KCD.ME.3.0R.KCD.NE.2)G0    TO    65 

0137  CALL    REPLCE(XP20,XR2) 
0136  GO    TO    66 

0139  65    CALL    3EPLCE ( XK ,XR2) 

0140  66    IF(  ITRIG.EQ.DGD    TO    71 

0141  70    CONTINUE 
C  IC0DE=11 

C  WRITEdOUT  ,1C00)IC0DE,XR2 

0142  71    ANG=ANGLE(XR1,XR2.XRC) 

0143  IF     (ANG.LT.O. 010-05)    WRITE     (I0UT.9001)    XR1,XR2.XRC 

0144  DELP=DELP0(1  ) 

0145  FB(1,1)=BARFAC(1,DELP) 
C  IC0DE=12 

C  WR1TE(I0UT,1002)IC0DE,FB(1,1) 

0146  CALL    REPLCE(XR2,XR2D) 
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C    GROUND    ABSORPTION 

0147  12    DO    73    KF=1,NF 

0148  FG(KF)=1. 

0149  73    CONTIMUE 
C  IC0DE=13 

C  WRITE( I0UT,1000)IC0DE,XR1,XR2,XR2D 

0150  KTRG=0 

0151  IF(DELP0(1).GT.-0.2)GD    TO    78 

0152  1F(KGA.EQ.0)C0    TO    78 

0153  DO    77    IGRA=1  ,KGA 

0154  LOC=KGC0DE(IGRA) 

0155  CALL  REPLCECTAld  ,1 ,IGRA  )  ,XG1 ) 

0156  CALL  REPLCE(TA1(1,2,IGRA),XG2) 

0157  BG  =  BGTUGRA) 

0158  IKINn=IKIN(IGRA) 
C  IC0DF=14 

C  WRITE(I0UT,1C01)IC0DE,L0C,XG1,XG2 

0159  IF(L0C.EQ.3)C0  TO  74 

0160  CALL  ENDPT(XR1  ,XR2,XRC,XG1 ,XG2,XK ,KTR1G ,1ERR } 

0161  KTRG=KTR1G 

0162  IF( IERR.EQ.4)    RETURN 

0163  IF(KTRIG.EQ.0)G0    TO    77 

0164  GO    TO    75 

0165  74    CALL    REPLCE ( XR2  ,XK) 

0166  75    CALL    NR1 < XR1  ,XK  ,XRC,XNPT,DI ST ,XN1  ,DN1 ) 
016  7  HDIFF=HEIGHT(XN1,XRC,XG1,XG2) 

0168  IF(HDIFF.GT.HGA(IKIND) )G0    TO    77 

0169  CALL   SECTN(XR1,XK,XRC,XG1,XG2,XG3,XG4) 

0170  DL=1.57/(1./BG-H./AMAG(XG3,XG4)) 

0171  DO    76    1K=1,NF 

0172  PP=IK 

0173  IF(IK.E0.1)PP=5. 

0174  IF(  IKIND.E0.1)A  =  (  .001 6*PP-0 .0028 ) *DL 

0175  IF(  IKIND.E0.2)A=2.=!:*(PP/3.)/1310.*DL 

0176  IF(A.GT.2.)A=2. 

0177  FG( IK)=FG(1K)/10.**A 

0178  IF(FGIIK)  .LT.1.E-2)FG(  IK)=1 .E-2 

0179  76   CONTINUE 

0180  KTRG=1 

0181  CALL    REPLCE(XK.XP2) 
C  IC0DE=15 

C  k'RITE(IOUT,100C)ICODE,FGU),FG(9) 

0ie2  77   CONTINUE 

0183  78    CALL    REPLCE ( XP2 ,XR2G) 

C    PRELIMINARY    SELECTION    OF    REFLECTORS 

0184  NREF=C 

0185  IF(NB.E0.O)GO   TO    91 

0186  IF     (IREFL.EO.O)    GO    TO    91 

0187  NRFDF=0 

0188  K3AR=0 

0189  DO    85    IBAR  =  1  ,NB 

0190  KAR=IBLAST(1BAR) 

0191  XRB1(1}  =  BX(IEAR,U 

0192  XRB1(2)=BY<IBAR,1) 

0193  XRB1(3)=9Z(IBAR,1) 

0194  NLIM=NBSMlf  IF-AR)  +  1 

0195  DO    85    ISEG=2,NLIM 
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0196  XRB2(1)=BXUBAR,ISEG) 

0197  XRB2(2)=BY(1BAR,ISFG) 

0198  XRB2(3)=BZ< IBAR.ISFG) 

0199  KBAR=KBAR+1 
C  IC0DE=16 

C  WRITE(I0UT,1001)1C0DE,KBAR,XR1.XR2,XRB1,XRB2 

0200  CALL    IMAGE (XRB1 ,XRB2,XRC,XRCI) 

0201  CALL    NRPT(XR1,XP2,XRCI  ,XNPT 1 ,DIST I ) 
C  IC00E=17 

C  WRITE(I0UT,1000)1C0DE,XRCI,XNPTI 

02  02  ANGIMG= ANGLE (XRE1  ,XRB2,XRCI ) 

020  3  FCTR=(DI STRANG  I MG )/DISTI/ANG/FB ( 1 .1) 

0204  IF(FCTR.LT.0.1)G0    TO    80 

0205  NRFDF=NRFDF+1 

0206  KRDNUM(NRFDF)=KEAR 

0207  CALL    REPLCE(XRB1,RB1( 1,1,NRFDF)) 
02C8  CALL    REPLCE(XRB2,RB1(1,2,NRFDF)) 

C  1C0DE=18 

C  WRITE (I  OUT, 1001 )I CODE.NRFDF ,XRB1 ,XRB2 

0209  IF(KAR.NE.IR  )GD    TO   80 

0210  CALL  DEGEN(XR1,XR2,XRCI,XRB1,XRB2,L0C> 

0211  IF  (L0C.EQ.5)  CALL  BLOCN (XR1 ,XR2.XRCI.XRB1.XRB2.XK,L0C > 

0212  79  IF(LOC.EQ.O)GO  TO  80 

0213  NREF=MREF*1 

0214  KRNUM3(UREF)=KPAR 

0215  CALL    REPLCE(XRE1,R1(1,1,NREF)> 

0216  CALL   3EPLCE(XRB2,RK1.2,NREFn 
C  IC0DE=19 

C  WRITE (I  OUT, 1001  )I CODE ,NREF ,XRB1 »XRB2 

0217  80    CALL    REPLCE ( XRB2  ,XRB1 ) 

0218  85    CONTINUE 

C    BEGIN   REFLECTOR    PROBLEM 

0219  91    IDXR=0 

0220  IF(NREF.EQ.O)GO    TO    180 

0221  PO    175    KREF=1,NREF 

0222  KBAK1=KRMUMB(KREF  ) 

0223  CALL   REPLCE ( Rl( 1 ,1  ,KREF ) ,XRB1 ) 

0224  CALL   RFPLCE(R1(1„?„KREF) ,XRB2) 
C  IC0DE=20 

C  WRITEU0UT,1001)IC0DE,KBARl,XRBl,XRB2,XRltXR2 

0225  CALL    I  MAGE ( XFB 1  ,XRB2,XRC ,XRC1 > 

0226  CALL    ENDPT(  XR1  ,XR  2.XRCI  ,XRB1  ,XRB2  ,XK,KTRIG,IERR) 

0227  IF<  IERR.EQ.4)    RETURN 
C  IC0DE=21 

C  WR1TF(IDUT,1001)IC0DE,KTRIG,XRCI,XK 

0228  IF(KTRIG.EQ.0)G0    TO    175 

0229  CALL    NRPT ( XR 1  ,XR2  ,XRCI ,XNPT I  ,01 STI ) 

0230  CALL    NRKXR1  ,XK ,XRC1 , XNPTI ,DISTI , XN1I ,DN1I ) 
C  1C0DE=22 

C  WR I TE ( I  OUT, 1000) I  CODE, XNPTI, XN II 

0231  XN1I(3)=XN1I C3)*ZS(2) 

0232  HDIFF=HEIGHT(XN1I  ,XRCI,XRB1  ,XRB2) 

0233  IF(HDIFF.GT.-2.0)G0  TO  175 

0234  CALL  REPLCE(XK,XR2) 

0235  CALL    SECTN (XR1 ,XR2 ,XRC I ,XRB1  ,XRB2  .XRB3, XRB4 ) 
C  IC0DE=23 

C  WRITE(I0UT,1000)IC0DE,XR1,XR2,XRB3,XRB4 

0236  MDIFF=0 

0237  DO    95    10  =  1, NO 

0238  DELPl(IQ)=-0.2 

0239  DELP2(IO)=-0.2 

0240  95    CONTINUE 
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0241 
02*2 
024  3 
0244 
0245 


0246 
0247 
0248 
0249 
0250 
0251 


0252 

0253 


0254 
0255 
0256 
025  7 
0258 


0259 
0260 


0261 


0262 
0263 
0264 
0265 
0266 
0267 


0268 
0269 
0270 
0271 
0272 
0273 
0274 


0275 
0276 


0277 
0278 
0279 


DIFFRACTION  BEFORE  REFLECTION 

IF(NRFDF.EG.O)GO  TO  115 

DO  110  KRFDF=1 tNRFDF 

KBAR2=KRDNUM(KRFDF) 

CALL  REPLCE(RB1<1  ,1 .KRFDF ) ,XDB1) 

CALL  REPLCEtEBHl  .2.KRFDF) ,XDB2 ) 

ICODE=24 

WRITEUDUT.lOOl  ) I  CODE ,KBAR2 .XDB1.XDB2 

IFJKBAR2.E0.KBAR1 )G0    TO    110 

CALL   DEGEN(XRB3,XRB<i,XRCI,XDBl,XDB2,L0C) 

IF    (LQC.E0.5)    CALL   PLOCN (XRB3.XRB4  ,XRCI .XDB1 ,XDE2 ,XK ,LOCl 
96    IF(L0C.NE.0)G0    TO    110 

CALL   ENDOKXRl  ,XP2.XRCI  ,XDB1  ,XDB2  ,XK,KTRIG,IERR) 

IF( IFRR.E0.4)    RETURN 

IC0DE=25 

WRITFt I0UT,lC01)IC0nE,KTPIG,XK 

IF(KTRIG.EC.C)GO    TO    110 

CALL   N<?1(XR1  ,XK,XRCI,XNPTI,DISTI,XN1I,DN1I) 

1C00E=26 

WRITQ(IOUT,1000)ICODE,XN1I 

ZN1C=XN1I(3) 

XN1I{3)  =  ZN10-»ZS(1) 

HDIFF=HEIGHT (XN1I  ,XRCI ,XDB1,XDB2) 

IF(HDIFF.GI.20.0)G0    TO    110 

CALL    SECTN(XP1  ,XK  ,XRCI ,XDB1 ,XDB2,XDB3.XDB4 ) 

IC0DF=27 

WRIT£(IOUT,1000)1COOE.XDB3,XDB4 

CALL    NRPT(XDe3.XDB4,XRCI  ,XNPTJ,DI STJ) 

CALL    rgRHXDB3,XDB4,XRCl,XNPTJ,DISTJ,XN2.DN2) 

IC0CE=127 

WRITF<ICUT,1C00)IC0DE,XNPTJ,XN2,DISTJ.DN2 

HDIFF=HEIGH7(XN2,XRCI,XRB1,XRB2) 

IC0PE=227 

WR I  IE (I  OUT, 1002) I  CODE .HD1FF 
IF(HDIFF.GT.-2.0)G0    TO    170 
DO    105    1 1  =  1, NO 
1Q=NQ+1-II 

DN1  I=AMAG(XRCI  ,XN1I) 
HDIFF=HE1GHT(XN1I  ,XRCI  ,XDB1  ,XDB2) 
DELP=0EL(XN1 I ,XRC1 ,XDB1,XDB2.HD1FF,DN1 I ) 
IC0DE=327 

WRITE( I  OUT, 1 002) I CODE, DE LP 
1F(DELP.GE.5.65.AND.IQ.E0.2)G0   TO    170 
IFCPELP.GT.DELPK  IO))GO   TO    100 
IF(  10. EO.I )C0   TO    110 
GO    TO    105 
100   HDIFF=1 

DELP1(1Q)=DELP 
105  CONTINUE 
IC0PE=28 

WR1TE(10UT,1000)ICODE,DELP1(1).DELP1(2) 
CALL   REPLCE(XK,XR2) 
110    CONTINUE 
IC0DE=29 

WRITEt IDUT,1000)IC0DE,XR2 
DIFFRACTION    AFTER    REFLECTION 

CALL    IMAGE (XPB1  ,XRB2,XNPTI, XNPT J) 
CALL    IMAGE(XRB1  ,XRB2 ,XR1 ,XR1 I ) 
115    CALL    IMAGE(XRB1,XRB2,XR2.XR2I ) 
IC0DE=30 
WRITE(I0UT,1C00)IC0DE,XR1I.XR2I,XNPTI 
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0280  IF(NRF0F.EQ.0)G0  TO  145 

0281  DO  140  KRFDF=1,NRFDF 

0282  KBAR2=KRDNUM(KRFDF) 

0283  CALL  REPLCF.  (  PB1  ( 1  ,1  .KRFDF)  ,XDB1  ) 

0284  CALL  REPLCE ( RBI (1  ,2 , KRFDF) ,XDB2) 
C  ICCDE=31 

C  WRI7EUOU7,1001)ICODE,KBAR2,XDB1,XDB2 

0265  1FIKBAR2.FQ.KEAR1 )G0  70  140 

0286  CALL  IN7CP7 ( XRB1 , XRB2 ,XRC ,XR2I ,XRB4) 

0287  CALL  DEGEN (XRB3,XRE4,XRC,XDB1 ,XDB2,L0C ) 

0268  IF  (L0C.EG.5)  CALL  BLOCN (XRB3.XRB4 ,XRC.XDB1 ,XDP2,X J ,LOC) 

0289  117  IF(L0C.EQ.0)GD  TO  140 

0290  1F(L0C.E0.3)G0  70  120 

0291  CALL  IN7CP7(XR1I,XR2I,XRC.XJ,XKI) 

0292  XKI (3)=ZC0R(XR1I,XR2I,XKI) 

0293  DEL7A=-0.5 

0294  CALL  MOVE ( XK  I  ,XK I  ,XR1 1 , DELTA, IERR ) 

0295  IFUEPR.EQ. 4)    RETURN 

0296  IF(L0C.NE.1)G0    TO    135 

0297  GO    TO    125 

0298  120   CALL   REPLCE ( XR2I ,XKI) 

0299  125    CALL    INTCPT ( XR1I ,XRC,XDB1 ,X0B2,XDB3) 
C  IC0DE=32 

C  WRITE(IDUT,1001)IC0DE,L0C,XJ,XKI,XDB3 

0300  XDB3(3)=ZCCR(XD61 ,X0B2,XDB3) 

0301  HDIFF=HEIGHT(XR11 .XDB3.XRB1  ,XRB2) 

0302  IF(H0IFF.GT.-2.0)G0  TO  165 

0303  CALL  NR1(XR1I,XKI,XRC,XNPTJ,DISTI,XN1I,DN1I> 

0304  ZN10=XN1I(3) 

0305  DO  130  11=1. NO 

0306  IQ  =  NQ-»1-II 

0307  XN1I(3)=ZN10+ZS(I0) 
0306  DN1I=AMAG(XRC,XN11) 

0309  H0IFF=HEIGHT(XN11 ,XRC ,XDB1,XDB2) 

0310  IF(HD1FF. GT. 20.0. AND. 1C.E0.2)G0  TO  140 

0311  DELP=DEL(XN1I,XRC,XDB1,XDB2.HD1FF.DN1I> 

0312  IF(M0IFF.E0.1.AND.DELP.GT.-0.2)G0    TO    165 

0313  IF(DELP.LE.DELP2(I0))G0    TO    140 

0314  DELP2(I0)=DELP 

0315  130   CONTINUE 
C  IC0DE=33 

C  WR I TE  < I  OUT , 1 000  )  1  CODE , DELP2  < 1 ) .DELP2 ( 2 ) 

0316  IF(DELP2(2).GE.5.65)G0  TO  165 

0317  135  CALL  REPLCE ( XKI ,XR2I ) 

0318  140    CONTINUE 

0319  145   CALL   REPLCE(XR2I ,XKI> 

0320  IDXR=IDXR+1 
C  IC0DE=34 

C  WRITE(10UT,1001)IC0DE,1DXR.XR2I 

0321  IF(  IDXR.LT.1DG0    TO    150 

0322  IERR=3 

0323  RETURN 

0324  150    DO    155    10=1, NQ 

0325  DELRUQ,IDXR)  =  DMAXl(DELPlUC)fDELP2(IQ)) 

0326  155    CONTINUE 

0327  DO    160    1=1,3 

0326  XIMG(I,IOXR)=XRCI(I) 

0329  160    C0N7INUE 

0330  GO    70    165 

0331  165  CALL  IMAGE (XPB1  .XRB2.XKI ,XK 1 

0332  170  CALL  REPLCE ( XK ,XR2) 
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C  IC0DF=35 

C  WRITE( I  OUT, 1000) I  CODE, XR2 

0333  175    CONTINUF 
C  ICD0E=36 

C  WRITL(I0UT,1000)IC0DE,XR1,XR2 

C  BEGIN   BARRIER    FACTOR    COMPUTATION 

0334  180  NIMG=IDXR 

0335  ANG=ANGLE(XR1,XR2,XRC) 

0336  ADST=ANG/DIST 

0337  IF(KP0S(XNPT,XR2,XRI).EQ.1)G0  TO  190 

0338  ANG2=ANG1-ANG 

0339  GO    TO    195 
03*0  190    ANG2=ANG1*ANG 

C   CONTRIBUTION    FROM   DIRECT   RAY 

03*1  195    DO    205    IQ=1,NQ 

03*2  1F(NQS(MR,IQ).EQ.0)G0    TO    205 

03*3  DELP=DELPO(IQ) 

03**  00    203    KF=1,NF 

03*5  F8(KF,I0)=BARFAC(KF,DELP) 

03*6  200    CONTINUE 

C  1C0PE=37 

C  WRITE(IOUT,1002)ICODE.FB(1,IQ),FBC9,IO) 

03*7  205  CONTINUE 

C  CONTRIBUTION  FROM  REFLECTIONS 

03*8  IF(NIMG.E0.0)G0  TO  230 

03*9  DO  225  KIMG=1,NIMG 

0350  DO  210  1=1,3 

0351  XRCI(I)=XIMG(I,KIMG) 

0352  210  CONTINUE 

0353  ANGI=ANGLE(XR1,XR2,XRC1) 

035*  CALL  NRPT(XR1,XP2,XRCI,XNPTI,DISTI) 

0355  RATIOMANGI/DISTI  )/ADST 

0356  DO    220    10=1, NO 

0357  1F(NQS(MR,I0).E0.0)G0    TO    220 

0358  DELP=DELR( IQ.KIMG) 

0359  DO    215    KF=1,NF 

0360  FB(KF,IQ)=FB(KF.1Q)+BARFAC(KF,DELP)*RATI0 

0361  215    CONTINUE 

0362  220    CONTINUE 
C  IC0DE=33 

C  WRITE(IOUT,1002)ICODE,FB(1,1),FB(1,2),FB(9,1 ),FB(9,2) 

0363  22^    CONTINUE 

C  COMPUTE  MEAN  ENERGY  LEVEL 

036*  230  CALL  NR1 ( XR1  ,XR2 ,XRC,XNPT,D1ST,XN1,DN1 ) 

0365  INTEG=0 

0366  IF  (NDIFF.NE  .O.AND.DELPO(l) .GT.-0.2)  GO  TO  232 

0367  IF  (KGA.NE.O.AND.KTRG.GT.O)  GO  TO  232 

0368  IF  (G6M.LE.0)  GO  TO  232 
036S  1NTFG=1 

0370  RO  =  50.0 

0371  FSS1  =  (R0/D1ST)  **  GAM 

0372  FSS2  =  FSS1  **  2 

0373  CALL  DCATR ( ANG1 .ANG2.0.10 ,20,FNC1 .FSS3, 1ER. AUX ) 
037*  IF  (IER.NE.O)  GO  TO  231 

0375  CALL  OQATR (ANG1 .ANG2.0.10 ,20,FNC2 ,FSS*. IER, AUX ) 

0376  IF  (IER.NE.O)  GO  TO  231 
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0377  TEM1  =  DABS(FSS1  *  FSS3  /  DIST) 

0378  TEM2  =  DABS(FSS2  *  FSS4  /  DIST**3) 

0379  GO  TO  234 

03S0  231  WRITE(I0UT,2000)    XR ,YR ,ZR ,XR10,XR20. IER 

0381  STOP 

0382  232  TT1=2.0*ANG1 

0383  TT2=2.0*ANG2 

0384  TEM1  =  AOST 

0385  TEM2=DABS((DSIN(TT2)+TT2-DSIN(TTl)-TTl)/4./DIST**3) 

0386  234  T3  =  0.0 

038  7  DO    242    IF=1,NF 

0368  IP=IF 

0389  IF(IF.NE.l)  GO  TO  236 

0390  A  =  1.0 

0391  IP  =  5 

0392  IF  (INTEG.EQ.l)  GO  TO  237 

0393  236  A=10.**(-DNl*5.4E-5*2.35**(IP-5)) 

0394  237  T1=0.0 

0395  DO  240  IQ=1,NQ 

0396  IF(NOS(MR,IO).EQ.O)  GO  TO  240 

0397  NQQ=NQS(MR,IO) 

0398  T2=0.0 

0399  T4=0.0 

0400  DO  238  1=1, NOQ 

0401  INDEX  =  MR*20*(I-1)+20*5*UF-1)+20*5*9*(1Q-1) 

0402  XTA=XLREF(INDEX) 

0403  IF< IF.E0.1.AND.IQ.EQ.2.AND.IGO0(HR,N-l).NE.0)XTA= 

1XLREF( INDEX ) *GRADE( XR10.XR20) 

04  0  4  T2=T2*VEXPH(MR,I,IQ)*XTA*CQ(INDEX) 

0405  IFUF.EQ.l)    T4=T4+VEXPH(  MR,  I  ,  IQ)*XTA**2*CQ(INDEX)*** 

0406  238  JONTINUE 

0407  Tl    =  Tl    +    FB(IF,1Q)*FG(IF)*T2 

0408  IF    (IF.EO.l)    T3=T3+FB(IF,I0)**2#FG(IF)*#2*T* 

0409  240  CONTINUE 

0410  ZQ-TEM1*T1*A 

0411  XLE(1F)=XLE(IF)+ZQ 

0412  IF(IF.EQ.1)ZZQ=ZZQ+ZQ 

0413  IF( IF.EQ.l  )CAP2=CAP2+TEM2*T3*A**2 

0414  242  CONTINUE 
C  IC0DE=39 

C  WRITE(I0UT,10O2)    ICODE,XLE{ 1) ,XLE (9) ,CAP2 

0415  ANG1=DABS(ANG2) 
C  IC0DE=40 

C  HRITE(IDUT.IOOO)  IC0DE,XR2,XR2G,XR2D,XR20 

0416  IF(DSOR(XR2,XR20).LT.1.0)  RETURN 

0417  DELTA=1.0 

0418  CALL  H0VE(XR2,XR1  ,XR10, DELTA, 1ERR) 

0419  IFUFRR.EQ.4)  RETURN 
C  IC0DE=41 

C  WRITEUDUT.IOOO)    IC0DE.XR1 

0420  IF(DSQR(XR2,XR2GJ.LT.1.0)    GO    TO    247 

0421  CALL    REPLCECXR2G,XR2) 

0422  GO    TO    91 

C423  247  IF(DSQR(XR2,XR2D).LT.1.0>    GO   TO    25 

0424  CALL   REPLCE ( XR2D,XR2) 

0425  GO    TO    72 

0426  999  F0RMAK6H    C0rE  =  I3) 

0427  1000  F0RMAK6H    C0DE=I3  ,6F9 .2/7F9 .2 ) 

0428  1001  F0RMAK6H    C0DE=I3  ,14  ,6F9.2/6F9.2) 

0429  1002  F0RMAK6H    C0DE  =  I3  ,6E13  .4  ) 

0430  2000  FORMAT( 'ODQATR    UNSUCESSFUL    -   PROGRAM    TERMINATED. •/ 

1  •    XR=',F10.4,»       YR=»,F10.4,«      ZR=«,F10.4, 

2  •      XR10=',F10.4,»      XR20=»,F10.4.i      IER=»,I2) 

0431  9001  FORMAT  (5X,»***    ANGLE  SUBTENDED  AT  RECEIVER  BY  ROAD  SEGMENT  IS 

^APPROACHING  ZERO »  ,//,  11X  ,  « I  NT  IAL  PT.  OF  ROAD  SEGMENT  *,F10.W» 
*11X,'END  PT.  OF  ROAD  SEGMENT  •  ,F10  .4 ,/,  1 IX,  'RECEIVER  POINT  SF10.4) 

0432  END 
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E.31  SUBROUTINE  DQATR  (XL,  XU,  EPS,  NDIM,  FCT,  Y,  IER,  AUX) 
PURPOSE: 


SUBPROGRAMS 
USED: 


/XU 
FCT(X)dx  by  Romberg's  method. 

XL 
External  function  FCT(X) 


VARIABLES:  XL  -  lower  bound  of  the  interval. 
XU  -  upper  bound  of  the  interval. 
EPS   -  upper  bound  of  the  absolute  error  in  single 

precision. 
NDIM  -  dimension  of  the  auxiliary  storage  array  AUX 

NDIM-1  is  the  maximum  number  of  bisections  of 

the  interval  (XL,  XU). 
FCT   -  name  of  external  double  precision  function 

subprogram  used. 
Y    -  resulting  approximation  for  the  integral. 
IER   -  resulting  error  parameter. 


RESTRICTIONS 


IER  =0  -  it  was  possible  to  reach  the  required  accuracy. 
IER  =  1  -  it  was  impossible  to  reach  the  required  accuracy 

because  of  rounding  error. 
IER  =  2  -  it  was  impossible  to  reach  accuracy  because 

NDIM  is  less  than  5,  or  the  required  accuracy 

could  not  be  reached  within  NDIM-1  steps.  NDIM 

should  be  increased. 


ACCURACY: 

SIZE: 

REFERENCES: 


Error  within  EPS  as  specified 


1276 


Anon.:  "System  1360  Scientific  Subroutine  Package  (360A- 
CM-03X),  Version  II,  Programmer's  Manual,"  H20-0205-1 
(2nd  Edition),  International  Business  Machines  Corporation, 
1967. 
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C   CQATB        02/78    SAI  NEW 

)001  SUBROUTINE  DQATR(  XL,XU,  EPS,  NDIH,FCT  ,  Y  ,IBB  ,  AUX) 

)002  DIMENSION  AUX(1) 

>003  D003LE  PRECISION  AUX, XL, XU,X , Y,H, HH , HE,P, Q,SM, FCT 

C 

C       PREPARATIONS    OF    EOMBEEG-LCOP 

)004  ADX(1)     =    .5D0    *    (FCT  (XL)     ♦    FCT(XU)) 

)00  5  H    =    XI    -    XL 

)006  IF    (NDIM-1)     8,8,1 

)007  1  IF    (H)     2,10,2 

C 

C       NDIM    IS    JREATER    THAN     1    AND    H    IS    NOT    EQUAL  TO    0. 

)008  2  HH  =    II 

)009  E   =    EPS   /    DABS  (H) 

)010  DELT2    =    0. 

1011  P    =    1.D0 

1012  JJ    =    1 

1013  DO   7    1=2, NDIM 
101  ^  Y    =    AJX(1) 
1015  DELT1    =    DELT2 

•  016  HD   =    UH 

1017  HH  =    .500    *    HH 

1018  P   =    .  5D0    *    P 

1019  X   =    XL    +    HH 

1020  SM   =    0.D0 

1021  DO  3    J=1,JJ 
)022  SM   =    SM    *    FCT(X) 
I023                                  3  X   =    X    +    HD 

•  024  AOX(I)     =    .5D0    *   AUX(I-I)     +    P    *   SM 

C       A    NEW    APPROXIMATION    OF    INTEGRAL    VALOE    IS   COMPUTED    3Y    MEANS    OF 

C       TRAPEZOIDAL    RULE. 

C 

C       START   OF    ROMBESGS    EXTRAPOLATION    METHOD. 

i025  Q    =    1.D0 

I026  JI   =    I    -    1 

(027  DO  4    J-1/JI 

•  028  II   =    I    -    J 

1029  Q   =    g    +    Q 

1030  Q  =    Q    ♦    Q 

031  4  AUX(II)     =    AUX(II+1)     ♦    (AUX(II  +  1) -AOX(II))     /    (Q-1.D0) 
C       END    OF    FOMBERG-STEP 

C 

032  DELT2    =    DABS  (Y- AUX  (I)  ) 

033  IF    (1-5)     7,5,5 

■034  5  IF    (uiLT2-E)     10,10,6 

•035  6  IF    (USLT2-DELT1)     7,11,11 

036  7  JJ  =    JJ    +    JJ 

037  8  IER    -    2 

0038  9  Y    =   H    *   A0X(1) 

0039  RETURN 

0040  10         IER    =    0 
0  041  GO    TO    9 

0042  11  IER    =    1 

0043  Y    =   H    *   Y 

0044  RETURN 

0045  END 
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E.32  FUNCTION  GRADE (D.R1  ,DR2) 


PURPOSE: 


SUBPROGRAM 
USED: 

VARIABLES: 


RESTRICTIONS 
ACCURACY: 
SIZE: 
REFERENCES: 


To  compute  the  grade  correction  to  the  sound  level  of 
type  2  vehicles  (heavy  trucks)  on  a  given  roadway  segment, 

DSQRT(x),  DABS(x) 

DR1  -  xyz  -  coordinates  of  endpoint  1  of  roadway  segment 
DR2  -  xyz  -  coordinates  of  endpoint  2  of  roadway  segment 
X   -  grade  from  endpoint  1  to  endpoint  2 
Y   -  grade  correction  of  the  segment 
GRADE  -  sound  intensity  level  of  grade  correction 
i.e.,  GRADE  =  10  Y/1° 

none 

not  appl icable 

630 

The  grade  correction  is  a  linear  interpolation  of  the 
data  given  in  Gorden,  C.  G.,  et.  al . :  "Highway  Noise, 
A  Design  Guide  for  Prediction  and  Control,"  Highway 
Research  Board,  National  Academy  of  Sciences,  Report 
NCH-RP-174,  1976. 


0001 
0002 
0003 
0004 

0005 
0006 
0007 
0008 
0009 
0010 


GHADE        02/79    SSI  NEW 

D0UFLEPR£CISI0NFUNCTI0NGRM>S(ER1,ER2) 
IMPLICIT REAL*8  (A-H,0-Z) 
DIWEMSI0NDE1  (3)  ,DS2(3) 

X=DABS  (DR2  (3)  -DR1  (3)  )/DSQRT(  (BR2  (1)  -DR1  (1 ))  **2* 
1  (DR2(2)-DR1  (2))  **2) 
IF(X.LE.2.D-2)Y=0.D0 

I F  (X.GT. 2. D-2.AHD-X.LT. 7. D-2)  Y=1 .D2+X-2.D0 
IF(X.GE.7.D-2)  Y=5.D0 
GSAJE=1.D1**(Y*1.C-1) 
RETORN 
END 
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E.33  FUNCTION  FNCl(x) 


PURPOSE: 


SUBPROGRAM 
USED: 

VARIABLES: 


RESTRICTIONS 
ACCURACY: 
SIZE: 
REFERENCES: 


To  calculate  cos  (x)  for  use  in  computing  the  l_eq  by 
integration  over  the  roadway  segment. 


DCOS(x) 

X  -  argument  of  cosine 
XGAM  -  same  as  a 
FNC1  -  cos  a(x) 

a<_-  1 

not  applicable 
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ENC1  02/78         SAI    NEW 

FUNCTIOH    FNC1  (X) 
IMPLICIT    RE&L*8    (A-H,C-Z) 
CGflaON    /FUNC/XGAM 
FKC1    =    DCOS(X)     **    XGAH 
Ri-TURN 
END 


FUNCTION  FNC1:  LISTING 
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E.34  FUNCTION  FNC2(x) 


PURPOSE: 

SUBPROGRAM 
USED: 

VARIABLES: 


RESTRICTIONS: 
ACCURACY: 
SIZE: 
REFERENCES: 


To  calculate  cos  ^  a'    (x)  for  use  in  computing  SIGMA 


DCOS(x) 

X  -  argument  of  cosine 
XGAM  -  same  as  a 
FNC2  -  cos  2(1  +a)(x) 

a  >_  -  1 

not  appl icable 
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FUNCTION    PNC2  (X) 
IMPLICIT    REAL*8    (A-H,0-Z) 
COMMON    /FUNC/XGAM 

FNC2    =    DCOS(X)     **     (2.0    *    (XGAfl   +    1.0)) 
RETURN 
END 

FUNCTION  FNC2:  LISTING 
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FEDERALLY  COORDINATED   PROGRAM  OF  HIGHWAY 
RESEARCH  AND  DEVELOPMENT    (TCP) 


The  Offices  of  Research  and  Development  of  the 
Federal  Highway  Administration  are  responsible 
for  a  broad  program  of  research  with  resources 
including  its  own  staff,  contract  programs,  and  a 
Federal-Aid  program  which  is  conducted  by  or 
through  the  State  highway  departments  and  which 
also  finances  the  National  Cooperative  Highway 
Research  Program  managed  by  the  Transportation 
Research  Board.  The  Federally  Coordinated  Pro- 
gram of  Highway  Research  and  Development 
(FCP)  is  a  carefully  selected  group  of  projects 
aimed  at  urgent,  national  problems,  which  concen- 
trates these  resources  on  these  problems  to  obtain 
timely  solutions.  Virtually  all  of  the  available 
funds  and  staff  resources  are  a  part  of  the  FCP. 
together  with  as  much  of  the  Federal-aid  research 
funds  of  the  States  and  the  NCHRP  resources  as 
the  States  agree  to  devote  to  these  projects."' 


FCP  Category  Descriptions 

1.  Improved    Highway   Design   and   Opera- 
tion for  Safety 

Safety  R&D  addresses  problems  connected  with 
the  responsibilities  of  the  Federal  Highway 
Administration  under  the  Highway  Safety  Act 
and  includes  investigation  of  appropriate  design 
standards,  roadside  hardware,  signing,  and 
physical  and  scientific  data  for  the  formulation 
of  improved  safety  regulations. 

2.  Reduction    of    Traffic    Congestion    and 
Improved  Operational  Efficiency 

Traffic  R&D  is  concerned  with  increasing  the 
operational  efficiency  of  existing  highways  by 
advancing  technology,  by  improving  designs  for 
existing  as  well  as  new  facilities,  and  by  keep- 
ing the  demand-capacity  relationship  in  better 
balance  through  traffic  management  techniques 
such  as  bus  and  carpool  preferential  treatment, 
motorist  information,  and  rerouting  of  traffic. 


*  The  complete  7-volume  official  statement  of  the  FCP  is 
available  from  the  National  Technical  Information  Service 
(NTIS),  Springfield,  Virginia  22161  (Order  No.  PB  242057. 
price  $45  postpaid).  Single  copies  of  the  introductory 
volume  are  obtainable  without  charge  from  Program 
Analysis  (HRD-2),  Offices  of  Research  and  Development, 
Federal    Highway    Administration,    Washington,    D.C.    20500. 


3.  Environmental  Considerations  in  High- 
way Design,  Location,  Construction,  and 
Operation 

Environmental  R&D  is  directed  toward  identify- 
ing and  evaluating  highway  elements  which 
affect  the  quality  of  the  human  environment. 
The  ultimate  goals  are  reduction  of  adverse  high- 
way and  traffic  impacts,  and  protection  and 
enhancement  of  the  environment. 

4.  Improved  Materials  Utilization  and  Dura- 
bility 

Materials  R&D  is  concerned  with  expanding  the 
knowledge  of  materials  properties  and  technology 
to  fully  utilize  available  naturally  occurring 
materials,  to  develop  extender  or  substitute  ma- 
terials for  materials  in  short  supply,  and  to 
devise  procedures  for  converting  industrial  and 
other  wastes  into  useful  highway  products. 
These  activities  are  all  directed  toward. the  com- 
mon goals  of  lowering  the  cost  of  highway 
construction  and  extending  the  period  of  main- 
tenance-free operation. 

5.  Improved  Design  to  Reduce  Costs,  Extend 
Life  Expectancy,  and  Insure  Structural 
Safety 

Structural  R&D  is  concerned  with  furthering  the 
latest  technological  advances  in  structural  de- 
signs, fabrication  processes,  and  construction 
techniques,  to  provide  safe,  efficient  highways 
at  reasonable  cost. 

6.  Prototype  Development  and  Implementa- 
tion of  Research 

This  category  is  concerned  with  developing  and 
transferring  research  and  technology  into  prac- 
tice, or,  as  it  has  been  commonlv  identified, 
"technology  transfer." 

7.  Improved  Technology  for  Highway  Main- 
tenance 

Maintenance  R&D  objectives  include  the  develop- 
ment and  application  of  new  technology  to  im- 
prove management,  to  augment  the  utilization 
of  resources,  and  to  increase  operational  efficiency 
and  safety  in  the  maintenance  of  highway 
facilities. 
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